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Welcome to part 3 of The Secret Guide to Computers. 


Part 1 explained how to program a computer, by using words 
such as PRINT, ENDA INPUT, STOP)> GO ATO;i4FOR, and NEXT. S 


) 


Those words form a computer language, called BASIC. ON) FOG 
SMe 
Instead of BASIC, you can use alternatives...For example, ee aa 


Let 
if you choose a computer language called FORTRAN, you = 


must say DO instead of FOR. Page 62 shows a multilingual 
dictionary that helps you translate from BASIC to FORTRAN 
and other computer languages. 


Each- language has its own advantages, its own peculiar 
PxXpreeotonemsthateare cdiiticult to-translate intomtne other 
languages. 


Which is better: to be French, or to be German? That 
question has started several world wars. If you want to 
see programmers throw knives at each other in the computer 
room, ask them which computer language is the best. Some 
Programmers: ¢et) quite Vicious. on thatesubject. 


According to God and Moses, men failed to build the Tower 
of Babel because they started to use different languages 
and couldn't communicate with each other. The same thing 
is happening in the computer profession. 


Most computers understand several languages. This report 
will ‘help yousselect, youryfavorite. .-If you-send me—your 
vote, I'd be glad to tally it for the next edition. 
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Programmers have invented several thousand computer languages and dialects. I'll 
discuss these: 


LANGUAGES FOR BUSINESS 


ewan 
PACT, 


COMIT, 


PGC MEN 2 AP oa 
MLISP2}4TREE OGO| {[PLANNER}—-~QLISP| [SNOBOL 


| 


CONNIVER) 
The charts show the family trees. The languages in the darkest boxes are the most 
popular. The ones in dashed boxes are obsolete. 


The most popular language is COBOL, followed closely by FORTRAN, BASIC, and PL/I, 
and then RPG and SPSS. 


I want to make 100% sure you'll learn FORTRAN, so that's the language I'll begin 
with. -You'll need FORTRAN, in order to understand Part 4 on Systems. 


After FORTRAN, we'll look at COBOL (the most popular language), ALGOL (the elegant 
language that led to BASIC, PL/I, PASCAL, and SIMULA), and then the others. 


jist 


To avoid offending my colleagues, I've tried to keep this report objectively dry. 
But the languages are so annoying that your eyes will be quite wet by the time you 


finish: 


Bey. CSR TO AsCPLUSS TIMES 2 3) <7) )'). 


languages, depending on your personality. 


YOUR PERSONALITY 
American teeny-bopper 
Intergalactic hippie 
British aristocrat 
German Nazi 

pompous ass 

American inventive 
boring 


"Wow! 


1 ott 


As you read, notice which personality mode you're falling into. 
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Part 1 of The Secret Gutde to Computers explained BASIC. Now you'll learn a different 
computer language, called FORTRAN. Most computers understand both BASIC and FORTRAN. 
Some ideas are easier to express in BASIC, others are easier in FORTRAN. Most scientists 
and engineers use FORTRAN, not BASIC. The language universities most commonly teach 

is FORTRAN. 


IBM invented the first version of FORTRAN in 1957. Then came improvements, called 
FORTRAN II, FORTRAN III, and FORTRAN IV. Today most computers use an even better 
version, called FORTRAN V or some more exotic name (such as FORTRAN IV-EXTENDED, 
WATFOR, WATFIV, FORTRAN 10, or FORTRAN Tis 


This chapter explains the features of FORTRAN that are most important and work on 
practically all computers. To dig deeper, read the Commentary on the Secret Guide 
to Computers. 


SPlEMohe bee nheR 0 GIR AM: S 


Here's a FORTRAN program: 

PRINT 10 
10 FORMAT(1X,'CHIPMUNKS ARE CHUBBY' ) 

PRINT 20 
20 FORMAT(1X, 'GOLDFISH GIGGLE' ) 

"\FPRINT LO 

END 
The top line says to print what's in line 10, so the computer will print 
CHIPMUNKS ARE CHUBBY. The next line says to print what's in line 20, so the 
computer will print GOLDFISH GIGGLE. The next line says to print what's in line 
10, so the computer will print CHIPMUNKS ARE CHUBBY again. Altogether, the program 
makes the computer print: 
CHIPMUNKS ARE CHUBBY 
GOLDFISH GIGGLE 
/;CHIPMUNKS ARE CHUBBY 


Fach line of the program is indented 6 spaces, so it begins in the 7th position. 


Each FORMAT begins with 1X. 
Each string is enclosed in apostro 


You must number every line that is referred to. For example, you must number the 
FORMAT lines, since the PRINT lines refer to them. You don't have to number 
the PRINT lines. 


The bottom line of every FORTRAN program must be END. 


That program works on most computers. On PDP computers, say TYPE instead of PRINT. 
On CDC computers using TS FORTRAN, replace each apostrophe by an asterisk. On IBM 
computers, put STOP above END, so the bottom two lines of your program are: 

STOP 

END 


Ask the people in your computer center how to feed a FORTRAN program into the 


computer. On some computers, you must put an edit number in front of each line: 
00100 PRINT 10 

C0110 10 FORMAT(1X, 'CHIPMUNKS ARE CHUBBY' ) 

00120 PRINT 20 

00130 20 FORMAT(1X, 'GOLDFISH GIGGLE' ) 

00140 PRINT 10 

00150 END 


Some computers don't require you to indent each line. To indent quickly on PDP 
computers, hold down the CONTROL key, while you type the letter I. 


Each line of your program must be short: no more than /2 characters, including 
the spaces at the beginning of the line. 


CARRIAGE CONTROLS 


The 1X at the beginning of each FORMAT is called the carriage control. It means: 
print the format normally. For weirder printing, replace the 1X by 'O' Pore eae 


PRINT 10 

10 FORMAT(1X, 'NIFTY') 
PRINT 20 

20 FORMATC'O" (SAL!) 
END 


In line 10, the 1X makes the computer print NIFTY normally. In line 20, the 
zero-in-apostrophes makes the computer leave a blank line, then print: SAL.” tne 
computer will print: 

NIFT 


SAL 


Suppose you change the carriage control to 'l': 


PRINT 10 
10 FORMAT(1X, 'NIFTY' ) 
PRINT 20 
20 FORMATO Li SALI 
END 
If your terminal uses paper, the 'l' makes the computer print SAL on a new page. If 


your terminal uses a screen instead of paper, the '1' makes the computer erase the 
screen before printing SAL. 


wv 


3 FORTRAN 
Fun 


Suppose you change the carriage control to '+': 


PRINT 10 

10 FORMAT( 1X, 'NIFTY' ) 
PRINT 20 

20 FORMAT('+', 'SAL') 
END 


If your terminal uses paper, the '+' makes the computer print SAL in the same place 
as. Nifty. likes this: 


NAETY 
If your terminal uses a screen instead, the computer will print NIFTY, but then the 


NIF will suddenly disappear, and you'll see SALTY. 


To print the symbol 6, print 0 in the same place as -. To print the symbol #, 
print = in the same place as /. To print 0#A, print O=A in the same place as -/. 
If your terminal uses paper, this program prints 6#A: 


PRINT 10 

10 FORMAT(1X, '0=A' ) 
PRINT 20 

20 PORMATC! +75 '=-/49 
END 


If you're using a HAZELTINE terminal or CDC TS FORTRAN, the carriage controls 


won't work. 


FANCY FORMATS 


PRINT 10 
10 FORMAT(1X,'JOHN’,'NY') 

END 
The FORMAT consists of three ftelds: the first is the carriage control 1X, the 
second is 'JOHN', and the third is 'NY'. The computer will print JOHN and NY on 
the same line: 


JOHNNY 
PRINT 10 
10 FORMAT(1X,'EAT A', 8X, 'MEATBALL' ) 
END 
The computer will print EAT A, then 8 blank spaces, then MEATBALL: 
EAT A MEATBALL 


Here's another program for meatball lovers: 
PRINT 10 
10 FORMAT(1X,'EAT A',1X, 'MEATBALL' ) 
END 
The computer will print EAT A, then 1 blank space, then MEATBALL: 
EAT A MEATBALL 
If you say X instead of 1X, the computer will gripe. 


BA 


This program quotes Julius Caesar: 


PRINT 10 

10 FORMAT(1X,'I CAME') 
PRINT 20 

20 FORMAT(1X,'I SAW') 
PRINT 30 

30 FORMAT(1X,'I CONQUERED' ) 
END 

The computer will print: 

I CAME 

I SAW 

I CONQUERED 


This program does the same thing: 

PRINT 10 
10 FORMAT( IX," 1. CAME’ /1X,."1’ SAW" /1X, “2 CONQUERED ' ) 

END 
Line 10 consists of 3 records: the! first is 1X," 1 CAMP.) the second as°1klem SAW'; 
the third is 1X,'I CONQUERED'. Each record begins with a carriage control; the 
records are separated by slashes. The computer will print each record on a 
separate line. 


GOING AND STOPPING 


10 PRINT 20 
20 FORMAT(1X,'CAT' ) 
PRINT 30 
30 FORMAT(1X, 'DOG' ) 
GO TO 10 
END 
The top line says to print what's in line 20, so the computer Wi Li prin 
CAT 
The next line says to print what's in line 30, so the computer will print: 
DOG 
The next line makes the computer go back to line 10. The computer will print CAT 
again, then DOG again, then jump back to line 10 again....The computer will try to 
print the words CAT and DOG again and again, forever. 


The computer understands the word STOP. 

PRINT 10 
10 FORMAT(1X,'BUBBLE GUM' ) 

PRINT 20 
20 FORMAT(1X, 'SHAKESPEARE' ) 

STOP 

PRINT 30 
30 FORMAT(1X, 'DADA' ) 

END 
The top line says to print what's in line 10, so the computer will print 
BUBBLE GUM. The next line says to print what's in line 20, so the computer will 
print’ SHAKESPEARE. The next line says STOP, so the computer Wi Lewtop. vit 
will never print DADA. 
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NUMBERS 


FORTRAN distinguishes between integers and real numbers. Here's how FORTRAN 
defines them.... 


An tnteger contains no decimal point and no exponent. 

INTEGER NOT AN INTEGER COMMENT 

=27 2D Tad An integer contains no decimal point. 
50000 5E4 An integer contains no exponent. 

A real number contains either a decimal point or the letter E. 
REAL NUMBER NOT A REAL NUMBER 


=O =2y 
2.9968 235000000 
5E4 50000 


The largest permissible integer is different than the largest permissible real. 


COMPUTER LARGEST INTEGER LARGEST REAL TINIEST REAL 
PDP-11 using FORTRAN IV IA) Vd. TESS ue OR 3.9 
PDP-11 using FORTRAN IV-PLUS 2 TA B30 4] 1 LESS yD 3,9 
PDP-10 or HONEYWELL Paes 136507 91) JESS Page(s 5 Sees fe) 
IBM/360 or IBM/370 2407483647 7.2E75 5A 79 

CDC 2814 74976710655, » 2. 5E322 SLE 294 


NeOASLUA x Cal stand tor ae number eur gs o:/.. The same 1S truer in FORTRAN... rA 
variable can be a letter (such as X) or a letter-followed-by-a-combination-of-letters- 
and-digits (such as FUN4U2). The variable must be short: no more than 6 characters. 
AVERAGE is too long: say AVERAG instead. If the variable begins with I, J, K, L, M, 


or N, tt stands for-an-integer. Li/it) begins with.some other letter,-1t,stands-for a 
real number. 


JUNKY=-47 

PRINT 10, JUNKY 
10 FORMAT(1X,13) 

END 
Since JUNKY begins with J, it stands for an integer. The first line says JUNKY 
stands for the integer -47. The second line says to print JUNKY, using line 10. 
Line 10 explains how to print JUNKY. The I3 means: print it as an Integer having 


3 characters. The computer will print: 
7-47 
If you change the 13 to 14, the computer will print JUNKY as an Integer having 4 
characters. To print a total of 4 characters, the computer will print a blank 
spaccuametront of -47, like this: 

= tye) 


If you change to-I5, the computer will print JUNKY as an Integer having 5 characters, 
by printing two blank spaces in front of -47: 


AW 
If you change to 12, the computer will try to print JUNKY as an integer having 2 
characters. But it's impossible to express -47 by using only 2 characters. The 


computer will obey the format and print 2 characters, but will make them asterisks: 


sleet 
way 


NUM=31.9 
PRINT 10, NUM 
10 FORMAT(1X,14) 


END 
Since NUM begins with N, it stands for an integer. The first line of the program 


tries to make NUM stand for 31.9; but that's impossible, since 31.9 isn't an 
integer. The computer will omit the .9 and make NUM stand for the integer 31. 
The computer will print 31, using an 14 format: 

mes 


JOE=-5.8 
PRINT 10; 7 JOE 
10 FORMAT(1X,14) 
END 
The computer will set JOE equal to the integer -5 and print Lt 
= 


JAIL=74 

KRIMNL=829 

PRINT 10, JAIL,KRIMNL 
10 FORMAT(1X,12,13) 

END 
Since JAIL begins with J, and KRIMNL begins with K, they are both integers. The 
computer will print JAIL and KRIMNL, using the format in line 10. The format says 
to print a 2-character integer, then a 3-character integer. The computer willeprint: 
74829 
If you change the format to (1X,12,4X,13), the computer will print a 2-character 
integer, then 4 blanks, then a 3-character integer: 
74 829 
If you change the format to— 
10 FORMAT (1X, ' JAIL NUMBER' ,1X,12,1X,'CONTAINS CRIMINAL' ,1X,13) 
the computer will print JAIL NUMBER, then a blank, then a 2-character integer, then 
a blank, then CONTAINS CRIMINAL, then a blank, then a 3-character integer: 
JAIL NUMBER 74 CONTAINS CRIMINAL 829 


J=43 
K=75 
L=96 
M=81 
N=24 
PRINT 10, J,K,L,M,N 
10 FORMATO) %. 12012 -12 12012) 
END 
The computer will print 43, then 75, then 96, then 81, then 24: 
4375968124 
You can write that format more briefly: 
10 FORMAT (1X, 512) 
If you change the format to (1X,513), the computer will print each integer as 3 
characters—a blank followed by two digits: 
4347586 wel i24 
If you change the format to (1X,13), the computer will print only one integer per 
line: 
43 
75 
96 
81 
24 
If you change the format to (1X,213), the computer will print 2 integers per line: 
i ae ie 
96 81 
24 
If you change the format to CUX >'GOSH IFEX, VSUPERB OLS obx POU REPERS” 9p ttre 
computer will print 2 integers per line: 
GOSH 43 SUPERB 75 JEEPERS 
GOSH 96 SUPERB 81 JEEPERS 
GOSH 24 SUPERB 
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To be safe, use 114 format for integers. On most computers, I14 handles even the 
largest integers, and prints blank spaces between them. 


Integers are also called fixed-point numbers. Real numbers are called floating-point 
numbers. 


The I format is only for integers. For real numbers, use F or G. The F format is 


easy to understand: 
RADIUS=-586. 39 
PRINT 10, RADIUS 
10 FORMAT (1X,F7.2) 
END 
Since RADIUS doesn't begin with I, J, K, L, M, or N, it stands for a real number. 
The first line says RADIUS stands for the real number -586.39. The second line says 


to print RADIUS, using the format in line 10. The F7.2 means: print it as a 
floating-point number having 7 characters, 2 of them after!the decimal point. The 
computer will print: 
[9567.39 
Here are other formats: 

WHAT THE 

COMPUTER 


FORMAT WILL PRINT COMMENT 

To print 8 characters instead of 7, 
at the beginning. 

To print 3 characters after the decimal point instead of 2, 
prints a zero at the end. 

To print 1 character after the decimal point instead of 2, 
Tt rounds the: .391to0, .4. 
To print 4 characters after the decimal point, the computer 
would have to print -—586.3900; since that requires more tha 
8 characters, the computer complains by printing asterisks 


o be’ satfe.~use G14.6 format for real numbers. G14.6 handles all real numbers—evenl 


the largest—so it is more flexible than F. It prints 14 characters altogether, 6 
of which are significant digits. 

Here are examples of numbers printed in G14.6 format; each b represents a blank 
space: 
b-0.283941E-29 
bbO.293027bbbb 
bbb5.34523bbbb 
bbb39.4539bbbb 
bbb47802.3bbbb 
bbb986327.bbbb 
bbO.288341E+24 


it prints a blank space 


PRUNES=17 

PRINT 10, PRUNES 
10 FORMAT(1X,G14.6) 

END 
Since PRUNES doesn't begin with I, J, K, L, M, or N, it stands for a real number. 
When the computer encounters the first line of the program, it will set PRUNES 
equal to the real number 17.0. It will print: 

17.0000 

The program will run faster if you change the top line to this: 

PRUNES=17.0 


OPERATIONS 


For addition, subtraction, multiplication, and division, FORTRAN uses the same 
symbols as BASIC. 

N=2*(3+1) 

GS iad Zakk 

PRINT, TO, (NGS 
10 FORMAT(1X,114,G14.6) 

END 
Since N is 8, and § is 9.4, the computer will print: 

8 9.40000 


For exponents, FORTRAN uses a double star. 
J=7**2 
Wea rg 
PREINTS1043. JgP 
10 FORMAT(1X,114,G14.6) 
END 
Since J is 7% (which is 49), and P is .53 (which is .125), the computer will print: 
49 0. 125000 


For negative exponents, you need parentheses. You must say 6.1**(-2), not 6.1**-2. 


When you combine integers, the answer is an integer: 
2431, SS(hD 

S-8) 4480 

2*4 is 8 

399/100 is 3.(mot 3399) 

L/h eg not 272) 

3/4) isOnGnot 50375) 

10**(-2) is 0 (not 0.01) 


When you combine real numbers, the answer is real: 
Avl+2.9is 7.0 (not 7) 

8.0-8.0 is 0.0 (not 0) 

399.0/100.0 is 3.99 

11. 0/4e0em et 2.105 

533.074.0806 wee 

10.0%%(-2;, Oe ise. 01 


When you combine an integer with a real number, the answer is real: 
B+2:, Ov 15:20 

399/100.0 is 3.99 

14/4 0 Mee? .75 

374.0 Tae 

10, 04* Geis .01 


Compare these: 

7/10*10 is 0 (because 7/10 is 0) 
7/10*10.0 is 0.0 (because 0*10.0 is 0.0) 
WILOROXTO “1s 70. “because 7/1070 234-7) 


JERK=20 : 943069 
PRINT 10, JERK 
10 FORMAT(1X, 114) 
END 
Since JERK begins with J, it stands for an integer. Since 20.9+30.9 is 51.8, 
JERK stands for the integer 51. The computer will print: 
51 
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APPLE=37/10 
PRINT,.10, APPLE 
10 FORMAT(1X,G14.6) 
END 
Since APPLE begins with A, it stands for a real number. Since 37/10 is 3, APPLE 
stands for the real number 3.0. The computer will print: 
3.00000 


There are three crimes you can commit, 
little crime: use a real number 
edium crime: mix integers with reals 
1g crime: use a real exponent 
For example, 2.0+2.0 is slower than 2+2, because 2.0+2.0 is a little crime. 2.1+7 is 
slower than 2.1+7.0, because 2.1+7 is a medium crime, whereas 2.1#7.0 is only a 
little crime. 5.1**2.0 is slower than 5.1**2, because 5.1%**2.0 is a big crime, 
whereas 5.1**2 is only a medium crime. X=0 is slower than X=0.0, because X=0 is 

a medium crime, whereas X=0.0 is only a little crime. 


that make the computer work slowly. 


we : : : ; : ek ; ; ; : : 
9**3.1 1s a gigantic crime, since it is a medium crime and a big crime simultaneously. 
Because the crime is so gigantic, some computers refuse to do it. Say 5.0**3.1 
instead. 


ADVICE ABOUT VARIABLES 


FORTRAN, like BASIC, distinguishes variables, constants, and expressions: 
X is a variable 

2.7 is not a variable; it is a numertc constant 
PLOVE “2s not a variable; itis a etring constant 
+Y is not a variable; it is an expression 
In a PRINT statement, some computers allow onl 
altoweds ePRINT 10, X 

GLeal towed oar PRINT 10; «29% Anstead, say X=2.7 and PRINT 10, X 

ot allowed: PRINT 10, 'LOVE' <ndstead, say PRINT 10 and 10 FORMAT(1X,'LOVE') 
ot allowed: PRINT 10, X+Y instead, say 2=X+¥ and PRINT 10, 2 


eo 


Other computers are more generous and allow anything. Find out about yours. 


eS 
variables. 


To help other humans understand your program, use long variable names throughout 
your program. Say RADIUS not R; say AREA, not A; say VOLUME, not V; say SUM, not S; 
say TOTAL, not T. Because FORTRAN variables are restricted to six characters, you 
may have to omit the last few syllables (revoluttons becomes REVOLU) or the last few 
vowels (RVLTNS). If you want a variable to be real, but its English name begins 
with I, J, K, L, M, or N, begin its FORTRAN name with an A (mass becomes AMASS; 
length becomes ALENGT or ALNGTH). If you want a variable to be an integer, but its 
English name doesn't begin with I, J, K, L, M, or N, begin its FORTRAN name with 

an I (populatton becomes IPOPUL) or misspell it (count becomes KOUNT) or choose a 
synonym (instead of posttton, say locatton, which is LOCATN). 


trigonometry 


calculus 
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FUN GT CO KS 


COMPUTER SYMBOL MEANING 
SQRT(X) the SQuare RooT of X 
the SINe of X radians 
the COSine of X radians 
the ArcTANgent of X, in radians; in other words, the number whose 
tangent is X 
TAN2(Y, X) the angle (in radians) of the line that goes through the origin 
i and( XeY)g) similar She ATAN(Y/X), but works even when X < 0 
eee X 


the TANgent, Hyperbolic, of X; in other words, 


x 
LOG10(X) LOG, 4 


the ABSolute value of X; in other words, X without its minus 
sign; for example, ABS(-5.2) is 5.2; ADS CO) aie eee 

OUCK Ly) X MODulo Y; in other words, the remainder when you divide, % Byove 
for example, AMOD(15.7, 7.3) is the remainder when you divide 

Th cPilby 155.5 WLC he ter at 2 


You can replace the X by any real number. For example, you can say SQRT(3.7) 
or SQRT(9.0) or SQRT(2.3+5.1) or SQRT(P) or SQRT(At+B), but you must not say 
SORTCo cor SORTCI) 


This program finds the square root of 9: 
A=SQRT(9.0) 
PRINT LO. A 
10 FORMAT(1X,G14.6) 
END 
The computer will print: 
3.00000 
If you say SQRT(9) instead of SQRT(9.0), the computer will either gripe or print 
a wrong answer. 


This program prints a table, showing the square root of 2.0, the square root of 3.0, 
the square root of 4.0, the square root, of. 5:0,. etcK. 
X=2.0 
10 Y=SQRT(X) 
PRANTS 200 xa 
20 FORMAT(1X,2G14.6) 


xe xt TO 
GO STO e LO 
END 
The computer will print: 
2.00000 Dee aL 
3.00000 Pe7ra205 
4.00000 2.00000 
5.00000 223607 
6.00000 2.44949 
7.00000 pales SOE Bo 
8.00000 2.82043 
9.00000 3.00000 
10.0000 J. lo225 


(EGE 
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Each of those functions produces a real answer, since none of them begins with 
Peppy Mppor N.. The logarithm functions as» called ALOG anstead.of LOG,,..to 
avoid beginning with L. 


Be careful when you translate from BASIC to FORTRAN: 
BASIC FORTRAN 


LOG ALOG 
SQR SQRT 
ATN ATAN 


Two of the functions have counterparts for integers: 
FOR REAL NUMBERS FOR INTEGERS EXAMP LE 

ABS(X) IABS( TZ) ITABS(-5) is 5 
AMOD(X, Y) MOD(I, J) MODCT Saree iss 1 


The function FLOAT(I) creates a FLOATing-point number (in other words, a real 
fimber). by using 1. For example, af)1 is /, then FLOAT(I) is 7:0. And FLOAT(3) 
is 3.0. The function FLOAT(I) helps you reach these goals: 

OAL: find the square root of J. 

DIFFICULTY: you aren't allowed to say SQRT(J), because what you take the square 
root of must be a real number; you can say SQRT(X) but not SQRT(J). 

SOLUTION: say X=J, and then say SQRT(X). 

SHORTER SOLUTION: say SQRT(FLOAT(J)). 

OAL: divide I by J accurately. 
DIFFICULTY: saying I/J doesn't solve the problem, because when the computer 
divides integers it gives an integer answer, instead of an accurate real answer. 
SOLUTION: say X=I, then Y=J, then X/Y. 

SHORTER SOLUTION: say FLOAT(1)/FLOAT(J). 


READ 


PRENT 10 
10 FORMAT(1X,'TYPE SOME DIGITS') 

READ 20, N 
20 . FORMAT(14) 

PRINT 30, N 
30 FORMAT(1X, 14) 

END 
When you run the program, the first pair of lines make the computer print: 
TYPE SOME DIGITS 
The word READ makes the computer wait for you to type something; it is like the 
BASIC word INPUT. The computer will wait for you to type the value of N, but 
the FORMAT in line 20 makes the computer read only the first 4 characters. For 
example, suppose you type: 
RFIL9S622 
The computer will read just the first 4 characters, which are -751; it will 
ignore the 98622; so N will be -751. The format in line 30 makes the computer 
print: 
oe! 
Altogether, the run looks like this; I've underlined the part typed by you: 
TYPE SOME DIGITS 
-75198622 
catet 


The format in line 30 contains a carriage control 1X, but the format in line 20 


does not. Put a carriage control in formats that PRINT, but not in formats that 
READ. 


l2 


On PDP computers, say ACCEPT instead of READ. 


If you input a blank space, the computer treats it as a zero. For example, suppose 
you input: 
3S 2o29 


Because of the 14 format, the computer will read just the first 4 characters, which 
are -3 2; the blank space between the 3 and the 2 is treated as a zero, so N will 
be =307% 


Suppose you input: 

om 

Because of the 14 format, the computer will read the 5, the 7, and two blanks. Since 
the blanks are treated as zeros, N will be 5700. 


Suppose you input: 

9527 
Because of the I4 format, the computer will read the three beginning blanks and the 
9. Since the blanks are treated as zeros, N will be 0009,, which is 9. Line 30 
makes the computer print: | 
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Suppose you write a program containing these lines: 

READY 20) (LM. 
20 FORMAT(13,14,2X,12) 
When you run the program, suppose you input: 
58194138972824 
The 13 format makes the first 3 characters (581) be L; the 14 format makes the next 
4 characters (9413) be M; the 2X format makes the next 2 characters (89) be skipped 
over; the 12 format makes the next 2 characters (72) be N; the remaining characters 
(824) are ignored. In other words, the line is split like this: 


13 (14 j2xX12 
58194138 917 21824 


Suppose you write a program containing these lines: 
READ 20, J,KsL5M,N 
20 FORMAT (213) 


The format says to read 2 3-character integers on each line. Suppose you input 
78345692 . 
85431684 
46185327 ; 
J will be 783, and K will be 456. L will be 854, and M will be 316. N will be 461. 
PRINT 10 
10 FORMAT(1X,'TYPE SOME DIGITS') 
READ 20, P 
20 FORMAT(F6.2) 
PRINT: 30 si? 
30 FORMAT(1X,G14.6) 
END 
The F6.2 format means: read 6 characters; if they don't contain the decimal point, 


insert it before the last 2 digits. For example, suppose you input: 
327514968 
The computer reads the first 6 characters (327514). Since they don't contain the 


decimal point, the computer inserts it before the last 2 digits, so P is 3275.14 
Line 30 prints: 


3275.14 
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Suppose you input: 
7.5423967 
The computer reads the first 6 characters (7.5423). Since they already contain the 
gecimalgpoint, P is 7.5423, »Lines30 prints: 
7.54230 


Suppose you input: 
49753 
The computer reads 6 characters (497E3, followed by a blank). Since blanks are 
treated as zeros, the computer gets 497E30. Since 497E30 doesn't contain the 
decimal point, the computer inserts it before the last 2 digits, so P is 4.97E30. 
Line 30 prints: 

4.97E+30 


OMITTING FORMATS 


Most computers let you omit numeric formats. This program works on IBM computers 
using FORTRAN H-EXTENDED, on CDC computers using FORTRAN IV-EXTENDED, on PDP-10 
computers using FORTRAN-10, on PDP-11 computers using FORTRAN IV-PLUS, and on 
most other modern computers: 

PRINT 10 
10 FORMAT(1X,'TYPE TWO INTEGERS’ ) 

READ *, M,N 

ISUM=M+N 

PRINT *, ISUM 

END 
The word READ is followed by an asterisk, instead of a FORMAT number. The last 
PRINT is followed by an asterisk also. The asterisk makes the computer invent its 
own FORMAT. To make the program add 241 and 82976, input the numbers, separated 
by a comma: 
241, 82976 
The computer will notice the comma's location and automatically use an I3 format 
forn24t) a iX*format*to'skip‘over’ the’commas- and» an/15 *fermat*for’82976).2Touprint 
ISUM, the computer will use a safe format, such as 114 or I1L5. 


By omitting formats, you gain two advantages: 

1. You can write FORTRAN programs more quickly. 

2. The person who inputs doesn't have to worry about whether his spacing matches 
the format. The computer invents a format that matches his input. 


On CDC computers using TS FORTRAN, and on HONEYWELL computers, omit the asterisk 
after READ and PRINT: 
PRINT 10 
10 FORMAT(1X,'TYPE THE NUMBERS' ) 
READ, M,N 
ISUM=M+N 
PRINT, ISUM 
END 
Omitting the asterisk works for both integers and reals. For the fancier kinds 
of numbers you'll learn about later ("double precision" and "complex"), use formats. 
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On PDP-10 computers using F40 FORTRAN, and on PDP-11 computers using regular 
FORTRAN IV, you need FORMATs, but omit the number in the I format: 
TYPE 10 
10 FORMAT(1X, 'TYPE THE NUMBERS ' ) 
ACCEPT 20, MN 
20 FORMAT(1X, 21) 
ISUM=M+N 
TYPE 30, ISUM 
30 FORMAT(1X,1) 
END 


Similar short cuts can be used for real numbers. 


COMMENTS 


If you type C instead of a line number, the computer will ignore the line. 
a N=50+13 — 
C HATE COMPUTERS! 
PRINT 10, N 
10 FORMAT(1X, 114) 
END Py 
The computer will ignore the Comment. It will print 63. 


The C in FORTRAN is like the REMARK in BASIC: use it to document your program. 


CONTINUATION 


Some computers look at only the first 72 characters of each line of your program: 
if your line contains more than 72 characters, it won't work. 


If you want to type a long statement, type just the first 72 characters. On the 
line below, type the remaining characters, beginning in the 7th print position; 
and in the 6th print position type a 6: 

PRINT 10 
10 FORMAT(1X,'I LIKE ROSES IN MY TEA. '/1X,' THEY MAKE IT YUMMY. RED, LI 

6KE HOT BLOOD. ') 

END 
The computer will print: 
I LIKE ROSES’ IN MY TEA. 
THEY MAKE IT YUMMY RED, LIKE HOT BLOOD. 
A line that has a 6 in column 6 is called a continuation line, because it is a 
continuation of the line above it. 


On PDP computers, put the 6 immediately after a controlled I, instead of in 

column 6: 

10 FORMAT(1X,'I LIKE ROSES IN MY TEA.'/1X,'THEY MAKE IT YUMMY RED, LI 
6KE HOT BLOOD. ') 

On CDC computers using TS FORTRAN, type a + instead of a 6, and put Ra 

immediately after the edit number, with no intervening spaces: 

00120 10 FORMAT(1X,'I LIKE ROSES IN MY TEA.'/1X,'THEY MAKE IT YUMMY RED, LI 

00130+KE HOT BLOOD. ') 


FORTRAN allows the word IF: 


STATEMENT 

TEST 2uT355) 
Tel iw 5) 
TECCT SUP \5) 
Te Le en) 
The condition 


J23 


GO TO 80 


STOP 


MEANING 
Livious 
Leas 
Liste 


PRINTS 10% 43 LE Tals 
must. be enclosed in parentheses. LT must be enclosed in periods. 


FORTRAN uses these symbols: 


SYMBOL 

TPT UT 4 5) 
Pea Gt a5) 
Tf G1 site) 
TF GT SSGE 0/5) 
TFUCL 4tOy 5) 
pe hi eNEY 5) 


MEANING 
Theta e 
re Big 
a eer ans 
ry Sd 
ag load ce 
sh id is 


Less Than 5 
Greater Than 
Less than or 
Greater than 
EQual to 5 
Not Equal to 


You can use the words AND and OR: 


IDEA 


i sioror 9. or) 13 
if I is an integer from 1 to 100 


Lax <¥< 2 


LfeAcis less than. both Byand=C 
if X is negative or between 5 and 9 


Take this test: 
translate the IDEAs into 
shorter than the correct 
answer to the first. idea 
SOR eos OR? 


le A ey 0 ene 


FORTRAN, th 
answer, tak 
is wrong: 
13) 
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Lessaliatico nw Lec = 4: 

Less) than 5',°eo ‘to line 80. 

Less Ihan 5, stop’. 

Less Thaw 5; print’ J by using the format*’in line 10% 


5 
Equal to 5 
or Equal to 5 


5 


HOW TO SAY IT IN FORTRAN 

eee cE Qa! 2 SOR Lise EO eso HOR Ls BEO Pet 3) 
Teor GE BP * ANDI oO {EY SLE A000 

Tee UT ey. ANT Ware o, TePee, 2) 

LoeCA eT Be ee aN Ae LT. CD 

eee ere 0. OF ORG eo GE” OP OAND. Xo LE “9*'0) 


cover up the column marked HOW TO SAY IT IN FORTRAN. Try to 


en check your answers. If one of your answers is 
e the test again! For example, the following 
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This program prints the square of every number from 80 to 100, and then prints 
GET LOST: 


in BASIC in FORTRAN ‘ee 
10 FOR I = 80 TO 100 DO 30 I=80,100 
Vie irsus 2 
20 PRINT 142 PRINT 20, J 
20 FORMAT(1X,114) 

30 NEXT I 30 CONTINUE 

PRINT 40 
QO PRINT "GET LOST" 40 FORMAT(1X,'GET LOST') 

END 
50 END 


If you compare the BASIC with the FORTRAN, you'll notice FORTRAN uses the word DO 
instead of FOR, uses a comma instead of TO, and uses CONTINUE instead of NEXT. The 
statement DO 30 I=5,9 means: DO every line up through line 30, repeatedly. as I 
goes from 5 to 9. In BASIC, it is customary to indent every line between FOR and 
NEXT; in FORTRAN, it is customary to indent every line between DO and CONTINUE. 

In BASIC, the indented lines are called a FOR...NEXT Loop; in FORTRAN, they're 
called a DO loop. 


If you want the computer to print the square of every fifth number from 80 to 100, 
change the top line of the program: 

in BASIC in FORTRAN 

10 FOR = 80 TO..100; STEP; 5 DOL3O.LSSD., LOO S 


In a DO statement, some computers allow only positive integer variables and constants: 


NOT ALLOWED WHY WHAT TO SAY INSTEAD 
Or 10 X41-.0,5.0 reals are not’ allowed DO 10 I=1,5 | 
DOVPO. K=LE.3398 20 reals are not allowed DO LOT =1 732855 
ic Das X=1/10.0 
DO 10 I=0,5 0 is not positive DO 10 J=1,6 | 
I=J-1 
DO. 10 b=3355 -3 is not positive DO 10 J=1,9 
) TS J=4 A ee TT 
DO’ LOWTALOG. pel =) ibs not (positive pO 10 J=7,100 
‘ I=107-J 
DO LO ti=55 5+ + is not allowed L=J+K 


DO 10 I=5,L 


Other computers are more generous and allow anything. Find out about yours. 


In the middle of a DO loop, don't change the value of the index. For example, if 
your DO loop begins with— 
DOLE: L=Peloo 
don't insert this line in the middle of your loop: 
1=14 
It will confuse the computer. 


Cee 22D 
Cw es) 
aT 
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SHB SCRIPTS 


FORTRAN treats subscripts the same way as BASIC: 
DIMENSION X(4) 
MOF 324. 
X(2)=.3 
X(3)=1.08 
X(4)=5.0 
SUM=X(1)+X(2)+K(3)+X(4) 
PRINT 10, X,SUM 
10 FORMAT(1X,G14.6) 
é END 
The top line says X will be a list of 4 numbers, called X(1), x(2), x(3), and X(4). 
since X doesn't begin with I, J, K, L, M, or N, the 4 numbers will be real. The 
computer will print the list X and the SUM: 
0.210000 
0. 300000 
1.08000 
5.00000 
6.59000 
Pf you change the format, to (1X,5G14.6), the computer will print. all 5. numbers on 
the same line: 
0.210000 0. 300000 1.08000 5.00000 6.59000 


The DIMENSION statement is required if your program uses subscripts, even if the 


Subscripts are small. Put it at the very top of the program. Make sure you say 
DIMENSION, not DIM or DIMENSIONS. The computer assumes all subscripts will be 
positive, so don't say X(0). If a subscript is zero or negative or larger than 
indicated in the DIMENSION statement, the computer might not notice your error, 
and will print wrong answers without warning you. 


If your program begins with these lines— 

DIMENSION A(6) 

READ 10, A 
the computer will begin by reading 6 real numbers, which will become A(1), A(2), 
AC3), AC4), A(5), and A(6). 


If you want T to be a table having 4 rows and 2 columns, begin your program by 
saying: 
DIMENSION T(4, 2) 
Tomgprint T, saves 
PRING UO,..T( 1, 493 PC1, 2) 
PREM BOTO, 102). PyeT(2, 2) 
PELME LO r 03 , VTC 3, 2) 
PRINT 1O¢y TC4)’, T(4, 2) 
10 FORMAT(1X,2G14,6) 


Lee Souls ay— 
PEIN 0 7,422 
the computer will print the entire table T, but in an undesirable order: it 


min dapeanter() 1), 102,51) e(3,1), and T(4,1)), then i ire Co nS) and 
ie Deo lagly READ een’! makes the computer xread T’in an undesirable order. 
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IMPLIED D0 


This statement— 

PRINT 10, X(3),X(4) ,X(5),X(6) , X(7), X(8) 
can be written more briefly, like this: 

PRINT! 40, EXCL), e356? 
It means: print, using the format in line 10, the value Of XCL), “for "hasta 
THe construction (X(1), 1=3,8)ere\ealled an ‘implied DO) oop.) Notice Stine 
parethesis at the beginning, the one at the end, and the commas. Here are other 
examples of implied DO loops: 
IMPLIED DO LOOP MEANING 
(X(1), 1=70,100,5) X(70),X%(75),X(80),X(85),X(90),X(95),X(100) 
CXC DIY CD) /4143 £9) X(3) ,¥(3),X(4),¥(4),X(5), (5), X(6), ¥(6), (7), ¥(7), X(8) , ¥(8) 


Here's a calendar: 
La) a a OS ad 
SLOP ba 2h Leda elite 
Ly TO LY OLS HO. 2OVed 
22 VS 22 420 27028 
29): S0oe 
This program prints it: 
PRINT UO Chaya i 
10 FORMAT AMPED 1X, L241 Ks Dake, 1, LZ ee ee 12.) 
END 
The program's top statement says to printevery ware. Gf IY crorr lea CusEe BS Sie 
format says to print 7 integers on each line, and separate the integers by spaces. 
Since 1X followed by 12 is about the'same as 13, you can write the format more 
briefly: 
10 PORMAT( £3,193 9139034 28013 $839) 
Even more briefly: 
10 FORMAT(713) 


lf T is a table having 3 rows and 5 columns, these lines will print it in the 
eorrecte order: 
PRINT 20M TOC TT eT CR 2y TA yee Bay Gags) 
PRINT 2O0e oLC2eL eT Qh Dy TC 3) SOC ee eo) 
PRINT OGS GS hCG) (Be Gs ea ae eon) 
20 FORMAT(1X,5G14.6) 
This short cut does the same thing: 
PRINT 20 get TC i. hee ie oo 
PRINT #20, (TW 3 Ge uo) 
PRINT "20, TCS tJ) , J415 5) 
20 FORMAT(1X,5G14.6) 
Here's a shorter cut: 
PRINT Om u ATUL J) ged=1 O85 irae 
20 FORMAT(1X,5G14.6) 
To read the table, say: 
READ: 10; .OGTCOE I), Jel 50a 8) 
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DATA 


DATAYX/S.975 V/1e4/) Z/9'-0/ 

X=100.6 

PIOON YT VLA), © ers, Z 
10 FORMAT(1X,3G14. 6) 

END 
ine DATA statement says X is 8.7, Y ye l.4,' and Z,is,9.0, The next line changes 
X to 100.6. The computer will print: 

100.600 1.40000 9.00000 


In that DATA statement, it would be illegal to write 9 instead of 9.0. The number 
mus; be Teal, “Since Z is real. 


The DATA statement is similar to these three statements—— 
X=8.7 
Y=1.4 
Z=9.0 

butters Taster. 


Here's another way to type the DATA statement: 
DATA XOY.2Z/5.7,1.459, 07 
Gesays kK, ©, atid 2 ALC Oni, sled, sano 9.0 respectively. 


Like the DIMENSION statement, the DATA statement must be put at the very top of 
the program. If you want both a DIMENSION statement and a DATA Statement, put one 


IMENSION statement first. 


This DATA statement Says Ayoo, Cs 0; and are ali to 7.-and X, YY. and Z are ald 9.6: 
DATABE,. Bb. C,D, Es Vee Peeler eel? 1279 6..9-6. 9.6, 
Since the first 5 numbers are 1.7, and the next 3 numbers are 9.6, you’ Caniwrite lat 
more briefly: 
DATA WA? CODLE XSV 62/5478 3%96/ 


To make A be this list— 


ho 
a 
mm COW Ons 


68.8 

begin your program with these lines: 
DIMENSION A(6) 
DATATA/ 8177.92 .6;,25.3,49.8,72.1,68.8/ 


To make T be this table— 
B.4'°.9..7 
OW iobisk es 
Pe ida ee 
pe Ces Bag | 
begin your program with these lines: 

DIMENSION T(4,2) 

Dn Amy Pay, 5 1.25.6 23,9. 7,6. 8) 7.259. 8/ 
Notice you must list the entire first column, ‘then the second. 
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STRING VARTABLES 


This program works on most computers: 
N='UP' 
PRINT? LU. 

10 FORMAT(1X, A2) 


END 
The top line says N is the string 'UP'. The next line says to print N, using the 
format in line 10. The A2 format means ‘a 2-character string. (The. A.is derived 
from the word Alphabet.) The computer will print: 


UP 


Some computers allow apostrophes only in FORMAT, DATA, and CALL statements. (You'll 
learn about CALL statements later.) On such computers, the statement N='UP' is 
illegal. Instead say: 

DATA N/* UP" / 


A string variable should look like an integer: it should begin with the letter 
Tt. 3, Ke ia wor Mh P¥ou"cantsay, Ne UP abuse shouldn't say X='UP'. 


The string a variable stands for must be short. You can say N='UP' but not 
N='SUPERCALIFRAGILISTICEXPIALIDOCIOUS'. The longest permissible string depends 
on your computer: 


COMPUTER LONGEST PERMISSIBLE STRING 
PDP-11 using FORTRAN IV 2 characters 

PDP-1l1 using FORTRAN ty rye eile t 

IBM/360 or IBM/370 

PDP-10 or HONEYWELL 5 charactere 

CDC 10 characters 


PRINT 10 

10 FORMAT(1X,'DO YOU LIKE ME?') 
READ 20,” ITREPLY 

20 FORMAT(A1) 
IF CIREPLY, .EQ2 “Y")° PRINT? 30 

30 FORMAT(1X,'I LIKE YOU, TOO!') 
PRINT 40 

40 FORMAT(1X,'SO LONG, BUSTER. ') 
END 

The first pair of lines make the computer print DO YOU LIKE ME? The next pair set 

IREPLY equal: to the first letter the user types. If the user types YESIREE, the 

computer will set IREPLY equal to 'Y', so it will print: 

T¥@GIKE You, TOO! 

SO LONG, BUSTER. 

But if the user types NOT AT ALL, the computer will set IREPLY equal to 'N', so 

it will prise juice. 

SO LONG, BUSTER. 


In that program, the string is called IREPLY instead of REPLY, to make it an integer. 


DIMENSION NAME(25) 
PRINT 10 
10 FORMAT(1X,'WHAT IS YOUR NAME?') 
READ 20, NAME 
20 FORMAT(25A2) 
PRINT 30, NAME 
30 FORMAT(1X,'I HATE ANYONE NAMED ',25A2) 
END 
The top line says NAME will be a list of 25 elements. The next pair of lines 
print WHAT IS YOUR NAME? If the user answers— 
BARTHOLOMEW HIERONYMOUS MCGILLICUDDY, M.D. 
the format in line 20 sets NAME equal to 25 2-character strings: 


NAME(1) is 'BA' NAME(11) is 'OU' NAME (21) 
NAME(2) is 'RT' NAME(12) is 'S '' NAME (22) 
NAME(3) is 'HO' NAME(13) is 'MC' NAME (23) 
NAME(4) is 'LO' NAME(14) is 'GI' NAME (24) 
NAME(5) is 'ME' NAME GIS)» is: LL" NAME (25) 
NAME(6) is 'W ' NAME(16) is 'IC' 
NAME(7) is 'HI' NAME(17) is 'UD' 
NAME(8) is 'ER' NAME(18) is 'DY' 
NAME(9) is 'ON' NAME(19) is ', ' 
NAME(10) is 'YM' NAME(20) is 'M.' 


Format 30 prints: 
I HATE ANYONE NAMED BARTHOLOMEW HIERONYMOUS MCGILLICUDDY, M.D. 


To make the program run faster, use fewer strings. If you have a CDC computer, 
for example, your strings can be as long as 10 characters, so you need only 
5 strings to make 50 characters: 
> DIMENSION NAME(5) 
PRINT 10 
10 FORMAT(1X,'WHAT IS YOUR NAME?') 
READ 20, NAME 
+20 FORMAT(5A10) 
PRINT 30, NAME 
+30 FORMAT(1X,'I HATE ANYONE NAMED ',5A10) 
END 


On some modern computers (such as IBM computers using WATFIV), you can request 
super-long strings: 
n CHARACTER*50 NAME 
PRINT 10 
10 FORMAT(1X,'WHAT IS YOUR NAME?') 
READ 20, NAME 
+20 FORMAT(A50 ) 
PRINT 30, NAME 
+30 FORMAT(1X,'I HATE ANYONE NAMED ',A50) 
END 
The top line requests that NAME be a 50-character string. Like the DIMENSION 
statement, the CHARACTER statement must be put at the very top of the program, 
above even the DATA statements. 
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DOUBLE PRECISION 


Some computers are more accurate than others: 


COMPUTER ACCURACY FOR REAL NUMBERS 
PDP-11 or IBM/360 or IBM/370 7 digits 
PDP-10 or HONEYWELL 8 digits 
CDC 14 digits 


For example, suppose you feed this program to a PDP-11 or IBM/360 or IBM/370: 
A=5398.1642376236 
PRINT 10, A 
10 FORMAT(1X,F15.10) 
END 
Expect the first 7 digits the computer prints to be correct (5398.164), but the 
remaining digits it prints to be wrong; they arise from roundoff error inside 
the computer. 


A PDP-11 or IBM/360 or IBM/370 prints some numbers to an accuracy of 8 digits 
and others to an accuracy of only 6 digits, but 7 digits is typical. 


For real numbers, I recommended you use a G14.6 format, because iti) &s,usate: seee 
prints just the first 6 digits. If you want to see further digits that are 
probably correct, use these formats instead: 


COMPUTER FORMAT WHAT THE FORMAT DOES 

PDP-11 or IBM/360 or IBM/370  G15.7 prints the first 7 digits 
PDP-10 or HONEYWELL G16.8 prints the first 8.digits 
CDC G27-14 prints’ thes fireueteocieits 


You can obtain extra accuracy, by requesting double prectston: 


COMPUTER ACCURACY FOR DOUBLE PRECISION NUMBERS FORMAT 
PDP-11 14 digits D22.14 
PDP-10 (using KA) or HONEYWELL 16 digits D24.16 
IBM/360 or IBM/370 17 digits D25.17 
PDP-10 (using KI or KL) 18 digits D26.18 
CDC 29 digits D37.29 
Each of these programs computes the square root of 6.3x108 on a PDP-11 computer: 
USING REALS USING DOUBLE PRECISION 
DOUBLE PRECISION A. 

A=SQRT(6. 3E8) A=DSQRT(6.3D8) 

PRINT 10, A PRINT 10, A 
10 FORMAT(1X,G15.7) 10 FORMAT(1X,D22.14) 

END END 


The program on the left computes 7 digits. The program on the right computes 14. 
Comparing the programs, you'll notice four differences: 


1. For double precision, you must use double precision numbers. Instead of 
saying 6.3E8, say 6.3D8. The D means Double precision. 

REAL NUMBER DOUBLE PRECISION NUMBER 

6.3E8 6.3D8 

29.6 29.6D0 


Rthis 44 a zenro ae 


2. For double precision, you must use double precision functions. 


saying SQRT, say DSQRT. 
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IDEA REAL FUNCTION DOUBLE PRECISION FUNCTION 

SQuare RooT SQRT DSQRT 

SINe SIN DSIN 

COSine COS DCOS 

ArcTANgent ATAN DATAN 

ArcTANgent of 2 ATAN2 DATAN2 

TANgent Hyperbolic. TANH (DiANTiss Of. LEM. but not-on PDr or CDC) 
EXPonent EAE. DEE 

LOGarithm ALOG DLOG 

LOGarithm base 10 ALOG10 DLOG 10 

ABSolute value ABS DABS 

MODulo AMOD DMOD 

3. For double precision, you must use double precision variables. Normally, the 


variable A would be real; to make it double precision instead, say: 
DOUBLE PRECISION A 
Normally, the variables LENGTH and MASS would be integers, and VOLUME would be real; 
to make them all double precision, say: 
DOUBLE PRECISION LENGTH, MASS , VOLUME 


Like the DIMENSION and CHARACTER statements, 


the DOUBLE PRECISION statement must 


be put at the very top of the program, above even the DATA statements. 


4. For double precision, you must use double precision formats. 


Litstedge ot a. G 


format, use D22.14, or whichever D format is appropriate for your computer. 


Although double precision arithmetic is more precise than real arithmetic, it is 
it consumes more of the computer's time, and the numbers 
consume more of the computer's memory. 


also more expensive: 


If you combine an integer or a real number with a double precision number, the 
answer will be double precision. 


In mathematics, 


ait is. 21 
2145315. Si 


COMPLEX NUMBERS 


the square Toot of siueicecesliled 2. "So 
obeys most of the rules of algebra: 


(8+21) + (7+31) is 15+5i 
(8421) * (7431) is 8*7 + 8*3i + 21*7 + 2i1*31, which is 56 + 241 + 141i + 612%, which 
is 56°+ 241 + 141.+ -6, which is 50+381- 


2 


is  -1 >" The number «1 


The number i is neither positive nor negative nor zero; it is pictured instead as 
being above the real number line: 


i. 


eh Trg bcc  Mteg ae Omme & 


2i is further above the real number line: 


above 5. 


A number that involves i is called complex. 


lh ital Fao) 


Teese eiaigiterapove 0. 5+231 18 2° units 


Soi t2iwis, complex... Lts veal, part .is, +5, 


its imaginary part is 2, and its conjugate is 5-21. 
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This program multiplies 8+2i by 7+31i and prints the correct answer, 50+381: 

COMPLEX B 

B=(8:.0 pvd. Ge AGP a0) 

PRINT 10, B 
10 FORMAT(1X,2G14.6) 

END 
FORTRAN says (8.0, 2.0) instead of 8+21; the decimal points and parentheses are 
required. To make B complex instead of real, say COMPLEX B; like the DIMENSION and 
CHARACTER and DOUBLE PRECISION statements, the COMPLEX statement must be put at the 
very top of the program, above even the DATA statements. To print B, use the G14.6 


format twice (once for the real part, and once for the imaginary part). The computer 
will print: 
50.0000 38.0000 


Although you can write 8+2i as (8.0, 2.0), you cannot write X+Yi as (X, Y); instead 
write CMPLX(X, Y). The rule is: to build a complex number from variables instead of 
from constants, say CMPLX. The variables you use to built it must be real. 


If B is complex, you can use these functions: 
FUNCTION MEANING 
CSQRT(B) the complex number that's the square root of B 


CEXP(B) the complex number that's ay 

CLOG(B) the complex number that's log B 

CABS(B) the real number that's the absolute value of B 
REAL(B) the real number that's the real part of B 


AIMAG(B ) the real number that's the imaginary part of B 
CONJG(B) the complex number that's the conjugate of B 


This program finds the square root of -9 and prints the correct answer, is 
COMPLEX] BZ 
B=-9 
Z=CSQRT(B) 
PRINTSIO GZ 
10 FORMAT(1X, 2614.6) 
END 
Since the top line says B is complex, the second line makes B the complex number -9+01. 
The next line makes Z the square root of -9+0i, which is 0+3i. The computer will print 
the O and the 3: 
0.000000 3.00000 


Since that program sets B equal to -9+0i1, which FORTRAN writes as (-9.0; 0.0), 
you can shorten the program to this: 
> COMPLEX Z 
> Z=CSORTCOU-940 ; 10.708) 
PRINT (309 52 
10 FORMAT(1X, 2614.6) 
END 
Make sure the number inside CSQRT's parentheses is complex: you need the decimal 
points, comma, and parentheses. 


When the computer combines a complex number with an integer, a real, or a 
double precision number, the result is complex. 


Some computers restrict your use of complex numbers, by rules such as, 
"Don't say a complex number equals a double precision number", 

"Don't combine a complex number with a double precision number", 

"Don't raise a number to a complex power", 

"Don't raise a complex number to a power, unless the power is an integer’. 
Find out whether your computer has those rules. 
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A=14.6+75.2 

WRITE(3,10) A 
10 FORMAT(1X,G14.6) 

WRITE(7, 20) 
20 FORMAT(1X,'TINA, PLEASE TICKLE MY TUBA') 

END 
Since A is 89.8, the second line makes the computer write 89.8 on "file 3", using 
the format in line 10. The next pair of lines make the computer write on "file Te 
using the format in line 20; so the computer will write TINA, PLEASE TICKLE MY TUBA 
on file 7. 


Before running that program, tell the computer where to put files 3 and 7. You 
can make the computer put them on a disk, lineprinter, tape, terminal, or 
wherever else you please. Ask the people in your computer center how to tell the 
computer where to put the files. 


If your program has many statements saying to write on file 3, the computer will 
write many lines on file 3, so the file will be long. 


Use carriage controls only if the file is on a lineprinter or terminal. 


Tl youw say 

READ(4,30) X 
the computer will read the value of X from file 4, using the format in line 30. 
If you say file 4 is the card reader, the computer will wait for you. to feed in a 
card; if you say file 4 is your terminal, the computer will wait for you to type 
on the terminal; if you say file 4 is on a tape or disk, the computer will assume 
you created the file before running the program. 


For handling files, the word READ works even on PDP computers. 
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SUBROUTINES 


PRINT 10 
10 FORMAT(1X, 'KIDS') 
CALL YUMMY 
PRINT 20 
20 FORMAT(1X, 'LOLLIPOPS' ) 
END 
SUBROUTINE YUMMY 
PRINT 10 
10 FORMAT(1X, 'SUCK" ) Aubroutine YUMMY 
RETURN 
END 
The program is a combination of two routines: a main routine, and a subroutine 
called YUMMY. Each routine ends with the word END. The main routine comes first; 
the subroutine begins with the word SUBROUTINE. 


matin Aoutine 


The top pair of lines makes the computer prises 
KIDS 

The next line says CALL YUMMY, which makes the computer skip down to subroutine YUMMY. 
Subroutine YUMMY makes the computer print— 

SUCK 

and then RETURN to the main program, which finishes by printing: 
LOELEPOPS 

In other words, the program prints: 

KIDS 

SUCK 

LOLLIPOPS 


Notice that,line 10 in the main routine is different from the line 10 in the 
subroutine. Similarly, an X in the main routine is different from one in 
the subroutine: 

X=3.4 

CALL FUNNY 

PRINT 10, X main Aoutrne 
10 FORMAT(1X,G14.6) 

END 

SUBROUTINE FUNNY 

X=925.1 

Y=X+1.0 

PRINT 10, Y Aubrsoutine FUNNY 
10 FORMAT(1X,G14.6) 

RETURN 

END 
The computer will set the main routine's X equal to 3.4. Then it will call FUNNY 
The X in FUNNY is 925.1, so Y is 926.1, and the computer will print: 

926.100 
When the computer returns to the main routine, it will print the main routine's X, 
WHLCHC LS USL Ue Js 
3.40000 
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To pass information from one routine to another, put the information in parentheses: 
A=5.2 
CALL LEMON(A) 
PRINT 10, A main 2outine 

10 FORMAT(1X,G14.6) 

END 

SUBROUTINE LEMON(X) 
PRINT. 100, x 


100 FORMAT(1X,G14.6) Aubrsoutine LEMON 


X=7.1 

RETURN 

END 
The computer sets A equal to 5.2. Then it calls LEMON. The A and X in parentheses 
mean: the main routine's A is the subroutine's X, so the subroutine's X is 5.2. 
Line 100 prints: 

5.20000 
The next line changes X to 7.1. When the computer returns to the main routine, the 
main routine's A is the subroutine's X, so the main routine's A is 7.1. Line 10 
prints: 
7.10000 

Port 

CALL JUNK(P) 

PRINT 10, P main routine 
10 FORMAT(1X,G14.6) 

END 

SUBROUTINE JUNK(P) 

eta: subroutine JUNK 

END 
The computer sets P equal to 2.1 and then calls JUNK. The P in parentheses means: 
the main routine's P is the subroutine's P. The subroutine triples P, so P 


becomes 6.3. When the computer returns to the main routine, line 10 prints: 
6. 30000 


Q=1.4 
CALL FAT O°. 0; Ot our RD 


PRINT 10, R\— main routine 
10 FORMAT(1X,G14.6) 
END 


SUBROUTINE FAT(X, Y, Z) 

LARLY 

RETURN 

END 
When the main routine calls FAT, the subroutine's X is 5.0; Y is Q+.3, which is 1.7; 
and Z is R, which is undefined. The subroutine sets Z equal to X+Y, which is 6.7. 
When the computer returns to the main routine, the main routine's R is the subroutine's 
Z, which, is1,6.444 ‘Line L0.prints: 

6. 70000 


Aubroutine FAT 


In that CALL, you must say 5.0, not 5, since X must be real. Saying 5 will confuse 
the computer and make it print a wrong answer. 


This subroutine finds the sum and average of three real numbers: 
SUBROUTINE STAT(X, Y, Z, SUM, AVERAG) 
SUM=X+Y+Z 
AVERAG=SUM/3.0 
RETURN 
END 
This main routine uses STAT to find the sum and average pf (Sint ).6 Meanie: 
CALI) STATCS 1, 226)-9..3,) SUM, (AVERAG) 
PRINT 10, SUM,AVERAG 
10 FORMAT(1X,2G14.6) 
END 


This subroutine finds the sum and average of three double precision numbers: 
SUBROUTINE DSTAT(X, Y, Z, SUM, AVERAG) 
DOUBLE PRECISION X,N,SUM,AVERAG 
SUM=XtY+Z 
AVERAG=SUM/ 3D0 » 
RETURN 
END 
This main routine uses DSTAT to find the sum and average of, T, @y,,.and, my ,phepe 
number (2668128): 
DOUBLE PRECISION SUM, AVERAG 
CALL DSTAT(3.1415926535898D0, 2.7182818284590D0, 2668128D0, SUM, 
6 AVERAG) 
PRINT 10, SUM,AVERAG 
10 FORMAT(1X,2D22.14) 
END 
You must say DOUBLE PRECISION in both the main routine and the subroutine. 


This subroutine finds the sum and average of X,, Xp, X3, -+-+5 Xi! 
SUBROUTINE STAT2(X, N, SUM, AVERAG) 
DIMENSION X(N) 
SUM=0.0 
DO 10 I=1,N 
SUM=SUM+X(1) 
10 CONTINUE 
AVERAG=SUM/N 
RETURN 
END 
This main routine uses STAT2 to find the sum and average off S64; 9.6, 20. lees 
91.5; andrs.6: 


DIMENSION X(6) 

DATAIKAS.4,9.6,20.15772,91- 5, 356/ 

CALL STAT2(X, 6, SUM, AVERAG) 

PRINT 10, SUM,AVERAG 
10 FORMAT(1X,2G14.6) 

END 
You must put the DIMENSION statement in both the main routine and the subroutine. 
In the main routine, the DIMENSION must be a constant (6); in the subroutine, the 
DIMENSION can be a variable (N). 
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This main routine uses STAT2 to find the sum and average of numbers the user 


inputs: 
DIMENSION X(100) 
PRINT 10 
10 FORMAT(1X,'HOW MANY NUMBERS WOULD YOU LIKE TO AVERAGE?') 
READ *, N 
PRINT 20 


20 FORMAT(1X,'TYPE THE NUMBERS' ) 
READ *, (X(I), I=1,N) 
CALL STAT(X, N, SUM, AVERAG) 
PRINT 10, SUM,AVERAG 
10 FORMAT(1X, 2G14.6) 
END 
The DIMENSION statement lets the user input up to 100 numbers. 


If a main routine says DIMENSION X(100), and X is passed between the main routine 
and the subroutine, the subroutine's DIMENSION statement must say no more than 
X(100): if the subroutine's DIMENSION statement says X(N), the N must be no more 
than 100. 


For double subscripts, the main routine's DIMENSION statement must be exactly the 


same_as the subroutine's. For example, if the main routine says DIMENSION X(25,4), 
the subroutine must say DIMENSION X(25,4) also: it must not say DIMENSION x03): 
if it says DIMENSION X(M,N), the M must be exactly 25. 


The Setenttfie Subroutine Package (SSP) is a collection of subroutines written by 
IBM that do statistics, calculus, equation-solving, and advanced math. The 

Calecomp subroutines make the computer operate a Calcomp plotter (a device that draws 
fancy shapes on paper, by using a felt-tip or ballpoint pen). Most large computers 
store the SSP and Calcomp subroutines on disk permanently. Ask the people in your 
computer center how to combine your own main routines with those subroutines, and 
how to put your own library of subroutines on the disk. 


If you and your friends are trying to write a big ptogram together, divide the 
problem into a main routine and several subroutines, and have each person write one 
routine. Although you'll need a group conference to decide what the SUBROUTINE and 
CALL statements will be, you don't have to agree on names of variables, since the 
names of subroutine variables have nothing to do with the names of main-routine 
variables. 


FUNCTION DEFINITIONS 


A=F(5.2)+1.0 
PRINT 10, A 
10 FORMAT(1X,G14.6) 
END 
FUNCTION F(X) 
F=2.0*X 
RETURN 
END 
The top line requires the computer to find F(5.2). The computer hunts for the 
definition of function F. The definition says F is twice 5.2, which is 10.4. So 
Ais 11.4. The computer will print: 
11.4000 


main routine 


definition of function F 
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Like a subroutine, a function definition can be very long and have many variables 
in parentheses. The function's name can be F or G or any other name, such as MASS. 
If the function's name begins with I, J, K, L, M, or N, the computer will assume 
its value is an integer. If you want the function MASS(X) to be double precision 
instead of an integer, begin your main routine by saying— 

DOUBLE PRECISION MASS 
and begin your function definition with this line: 

DOUBLE PRECISION FUNCTION MASS(X) 


Congratulations! Now you understand FORTRAN. If you'd like to play with more examples 
and learn tricks, read the Commentary. 


Like BASIC and FORTRAN, COBOL is a computer language: "COBOL" is pronounced 
"koe ball" and stands for 'COmmon Business Oriented Language”. 


Although students prefer BASIC and scientists prefer FORTRAN, businessmen prefer 
COBOL. Since businessmen outnumber students and scientists, COBOL's users 
outnumber BASIC's and FORTRAN's. COBOL is the most popular computer language in 
the world. Some people estimate that 90% of all programs are written in COBOL. 
COBOL programmers are in high demand: if you're expert at COBOL, you'll get a 
job more easily than if you're expert at BASIC or FORTRAN. 


COBOL solves business problems that involve large files of data. The) ilestean be 
on cards, tapes, disks, or other devices. 


To handle COBOL, the computer uses a two-step process: when you feed the computer 
a COBOL program, the computer translates the program from COBOL into machtne language . 
Then it runs the machine-language version. 


There are several versions of COBOL, such as COBOL 68, COBOL 74, IBM COBOL, and 
PDP-10 COBOL. This chapter's explanation is a compromise that works on practically 
all computers. 


Every COBOL program is written as an outline. 
into a COBOL program, just fill in the blanks: 


IDENTIFICATION DIVISION. 


PROGRAM-ID. the program's name. 


AUTHOR. your name. 
ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


OUTLINE 
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Here's a short outline; to turn it 


SOURCE-COMPUTER. the computer that will translate the program to machine Lanaquaae. 
OBJECT-COMPUTER. the computer that will run the machine-Language version. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. where each file 44, and how it 44 organized. 


DATA DIVISION. 
FILE SECTION. data in {iles. 


WORKING-STORAGE SECTION. data in only the main memory. 


PROCEDURE DIVISION. a step-by-step explanation of what you want the computer to do. 


The outline is organized into four dtvtstons. 
the computer center's librarian classify your program. 
describes the setup. The DATA DIVISION describes the data. 
tells the step-by-step procedure you want the computer to obey. 


The environment division is composed of two secttons: 


and the INPUT-OUTPUT SECTION. 


SOURCE-COMPUTER, OBJECT-COMPUTER, 
The name of each division, section, and 


might be simple (like IDENTIFICATION and CONFIGURATION) or hyphenated (like 
PROGRAM-ID and -WORKING-STORAGE) . 


Sly MP Le 


Here's a COBOL program: 
IDENTIFICATION DIVISION. 
PROGRAM-ID. 

HARRY. 

AUTHOR. 

RUSS WALTER. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 

PDP=10. 
OBJECT-COMPUTER. 

POUreLO. 

DATA DIVISION. 
PROCEDURE DIVISION. 
BEGIN. 


DISPLAY "BILLIE AND BONNIE". 


DISPLAY "BURP". 
STOP RUN. 


As you can see from the last three lines, the program makes the computer print: 


BILLIE AND BONNIE 
BURP 


aragraph is a single word. 


PROGRAMS 


The IDENTIFICATION DIVISION helps 
The ENVIRONMENT DIVISION 
The PROCEDURE DIVISION 


the CONFIGURATION SECTION 
The sections are in turn divided into paragraphs: 
and FILE-CONTROL. 
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Since the program doesn't use any files, the input-output section is omitted. Since 
the program doesn't use any data, the data division is empty. 


he entire program is indented. The heading of a division, section, or paragraph 
is indented 7 spaces, so it begins in the 8th column. Each sentence of the 

xplanation is indented 4 more spaces, so it begins in the 12th column. Each heading 
and sentence ends with a period. 


Use correct spacing: 
ALLOWED NOT ALLOWED NOT ALLOWED NOT ALLOWED 
DISPLAY "BURP"'. DIS PUAY-"BURP”: DISPLAY''BURP". DISPLAY ''BURP" 


If you prefer, you can omit the AUTHOR paragraph, so the program begins like this: 
IDENTIFICATION DIVISION. 
PROGRAM-ID. 

HARRY. 
ENVIRONMENT DIVISION. 
CEC. 


In the SOURCE-COMPUTER and OBJECT-COMPUTER paragraphs, put the name of your computer. 
Some possible names are PDP-10, IBM-360, IBM-370, and CDC-6600. 


IBM-360 and IBM-370 computers let you omit the configuration section, and expect 
you to use apostrophes instead of quotation marks: 
IDENTIFICATION DIVISION. 
PROGRAM-ID. 
HARRY. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 
BEGIN. 
DISPLAY 'BILLIE AND BONNIE’. 
DISPLAY 'BURP' 
STOP RUN. 


PDP-10 computers let you put headings at the far left, indent sentences by typing 
a controlled I, and shorten the program even further: 
IDENTIFICATION DIVISION. 
PROCEDURE DIVISION. 
DISPLAY ''BILLIE AND BONNIE". 
DISPLAY BURP 
STOP RUN. 


All lines must be short: the computer looks at only the first 72 columns. 


Though each heading and sentence must end with a period, COBOL never requires 
commas or semicolons. 
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PROCEDURE DIVISTION 
Now that we've gotten Billie and Bonnie to burp, let's change the procedure division. 


PROCEDURE DIVISION. 


BEGIN. 
DTS PLA Wear Lu EDA 
STOP RUN. 
The computer will display FLU and SHED on the same line: 
FLUSHED 


A procedure that eventually stops must say STOP RUN, but not necessarily on the 


bottom line: 
PROCEDURE DIVISION. 
BEGIN. 
DISPLAY. ae DO..Y0D. | WAN bO seca 
STOP RUN. 
RUS PLA Yieahbemae ts 
The computer will display: 
DO. YOU WANT..TO..,... 
Then it will stop the run. It will not display KISS. 


PROCEDURE DIVISION. 
BEGIN. 
DISPLAY, .“GRASS IS”. 
GO wi QO 4. 
DISPLAY "RED". 


DISPLAY "GREEN". 
DISPLAY ecu le SkvealS 9 


D1LSP LAN sei lulll ito 

STOP RUN. 
The procedure division consists of three paragraphs: the first is called BEGIN, 
the second is X, and the third is Y. The computer will display GRASS IS, then go 
to paragraph X (which displays GREEN and BUT SKY IS), then continue on to paragraph 
Y (which displays BLUE). Altogether, the computer will display: 
GRASS IS 
GREEN 
BUG SKY. LS 
BLUE 
The computer will not display RED. 
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You 


can give the paragraphs fancier names than BEGIN, X, and Y. For example, a 


paragraph's name can be SHOW-WHAT-I-STOLE-SINCE-1960. Whenever you invent a name 
(for a paragraph or for anything else), follow these rules: 


i= 
2 


The 
THE 
THE 
THE 
THE 
THE 
THE 
and 


The name must have no more than 30 characters. 
At least one of the characters should be a letter. The other characters of «he 
name must be letters, digits, or hyphens. Hyphens are permitted in the middle, 
but not at the beginning or end. Spaces are not permitted. 
The name should not be on this list— 

WORDS THAT HAVE COBOL MEANING 
ACCEPT ACCESS ACTUAL ADD ADVANCING AFTER ALL ALPHABETIC ALTER ALTERNATE AND 
APPLY ARE AREA AREAS ASCENDING ASSIGN AT AUTHOR BEFORE BEGINNING BLANK BLOCK 
BY CALL CANCEL CD CF CH CHARACTER CHARACTERS CLOSE COBOL CODE COLUMN COMMA 
COMMUNICATION COMP COMP-1 COMP-2 COMP-3 COMP-4 COMPUTATIONAL COMPUTATIONAL-1 
COMPUTATIONAL-2 COMPUTATIONAL-3 COMPUTATIONAL-4 COMPUTE CONFIGURATION CONTAINS 
CONTROL CONTROLS COPY CORR CORRESPONDING COUNT CURRENCY DATA DATE DATE-COMPILED 
DATE-WRITTEN DAY DE DECIMAL-POINT DECLARATIVES DELETE DELIMITED DELIMITER 
DEPENDING DEPTH DESCENDING DESTINATION DETAIL DISPLAY DIVIDE DIVISION DOWN 
DYNAMIC EGI ELSE EMI END END-OF-PAGE ENDING ENTER ENTRY ENVIRONMENT EOP EQUAL 
ERROR ESI EVERY EXAMINE EXCEPTION EXIT EXTEND FD FILE FILE-CONTROL FILE-LIMIT 
FILE-LIMITS FILLER FINAL FIRST FOOTING FOR FROM GENERATE GIVING GO GOBACK GREATER 
GROUP HEADING HIGH-VALUE HIGH-VALUES I-O I-O-CONTROL ID IDENTIFICATION IF IN 
INDEX INDEXED INDICATE INITIATE INPUT INPUT-OUTPUT INSTALLATION INTO INVALID IS 
JUST JUSTIFIED KEY LABEL LAST LEADING LEFT LENGTH LESS LIMIT LIMITS LINE 
LINE-COUNTER LINES LINKAGE LOCK LOW-VALUE LOW-VALUES MEMORY MERGE MESSAGE MODE 
MODULES MOVE MULTIPLE MULTIPLY NEGATIVE NEXT NO NOT NOTE NUMBER NUMERIC 
OBJECT-COMPUTER OCCURS OF OFF OMITTED ON OPEN OPTIONAL OR ORGANIZATION OUTPUT 
OVERFLOW PAGE PAGE-COUNTER PERFORM PF PH PIC PICTURE PLUS POINTER POSITION 
POSITIVE PROCEDURE PROCEED PROCESSING PROGRAM PROGRAM-ID QUEUE QUOTE QUOTES 
RANDOM RD READ RECEIVE RECORD RECORDING RECORDS REDEFINES REEL RELEASE REMAINDER 
REMARKS RENAMES REPLACING REPORT REPORTING REPORTS RERUN RESERVE RESET RETURN 
REVERSED REWIND REWRITE RF RH RIGHT ROUNDED RUN SAME SD SEARCH SECTION SECURITY 
SEEK SEGMENT SEGMENT-LIMIT SELECT SEND SENTENCE SEPARATE SEQUENTIAL SET SIGN 
SIZE SORT SOURCE SOURCE-COMPUTER SPACE SPACES SPECIAL-NAMES STANDARD START STATUS 
STOP STRING SUB-QUEUE-1 SUB-QUEUE-2 SUB-QUEUE-3 SUBTRACT SUM SUPPRESS SYMBOLIC 
SYNC SYNCHRONIZED TALLY TALLYING TAPE TERMINATE TEXT THAN THROUGH THRU TIME 
TIMES TO TRACE TRAILING TYPE UNIT UNSTRING UNTIL UP UPON USAGE USE USING VALUE 
VALUES VARYING WHEN WITH WORDS WORKING-STORAGE WRITE ZERO ZEROES ZEROS 
Instead of memorizing that list, it's easier to use these hints—— 
You can use any name that consists of just one letter (like X). 
You can use any name that begins with a digit (like 7TH). 
You can use any name that ends in -PARAGRAPH or -PARA or ~ROUTINE or ~-ITEM or 
-NUMBER or -COUNT or -AMOUNT (like MAIN-PARAGRAPH) . 
You can use any name that mentions an application (like PAYROLL). 
You can use practically any name that contains a hyphen, since very few items 
on the list are hyphenated. 


PROCEDURE DIVISION. 
BEGIN. 
DISPLAY ''THE CHICKEN”. 
DISPLAY "THE EGG". 
GO TO BEGIN. 
computer will display: 
CHICKEN 
EGG 
CHICKEN 
EGG 
CHICKEN 
EGG 
so on, forever. Since the procedure never stops, it doesn't say STOP RUN. 
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Here's a slight variation: 
PROCEDURE DIVISION. 
BEGIN. 
DISPLAY "WHICH CAME FIRST?" . 
LOOP: 
DISPLAY 'THE CHICKEN". 
DISPLAY "THE BGG 
GO TO LOOP. 
The procedure division consists of two paragraphs, named BEGIN and LOOP. The computer 
will display: 
WHICH CAME FIRST? 
THE CHICKEN 
THE EGG 
THE CHICKEN 
THE EGG 
THE CHICKEN 
THE EGG 
and so on, forever. 


PROCEDURE DIVISION. 
BEGIN. 
DISPLAY “'I SAW". 
PERFORM X. 
DISPLAY ''MAN". 
DESPLAY? "KISS". 


DISPLAY "AN". 
Dior LAY .OL0 - 


DISPLAY "WOMAN". 

STOP RUN. 
The computer will display I SAW, then perform varagraph X (which displays AN and 
OLD), then display MAN, then display KISS, then display AN, then display OLD, then 
display WOMAN. Altogether, the computer will display: 
I SAW 


OLD 
WOMAN 


The PERFORM statement can be varied: 

SENTENCE WHAT THE COMPUTER WILL DO 

PERFORM X. Go to the beginning of paragraph X. 
When the end of paragraph X is reached, 
go to the statement after PERFORM X. 
Go to the beginning of paragraph X. 
When the end of paragraph Y is reached, 

go to the statement after PERFORM X THRU Y. 


PERFORM X THRU Y, but 5 times instead of once. 


ERFORM X THRU Y. 


PERFORM X THRU Y 5 TIMES. 
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VARIABLES 


Like BASIC and FORTRAN, COBOL lets you use variables. The name of a variable can 
be short (like X or Y) or long (like NUMBER-OF-BULLIES-I-SQUIRTED). The rules for 
naming were on page 34; peek at that page again. 


To use a variable, you must describe it in the data division. Let's examine the 
data division and how it relates to the procedure division. 


DATA DIVISION. oP 
WORKING-STORAGE SECTION. the data division 
Hie LCTURE. CS Xt 


PROCEDURE DIVISION. 

BEGIN. | 
MOVE "HER" TO K. the procedure division 
DISPEAY,."PUS ets”. | 
STOP RUN. 


In the data division, the "01 kK" says K is a variable; make sure you put two blanks 
after the Ol. The PICTURE IS XXX says K is a string that has three characters; each 


X stands for a character. In the procedure division, the first sentence sets K equal 
to "HER". The next sentence makes the computer display: 
PUSHERS 


Suppose you change the picture from XXX to XX: 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
= Ol- (K PECTUREY TS kk, 
PROCEDURE DIVISION. 
BEGIN. 
MOVE "HER' TO K. 
DISPLAYs BUS wake uo 4: 
STOP RUN. 
K will be a string having only two characters. When the computer tries to move 
"HER" to K, only the first two characters of "HER" will fit, so K will be reel Eas 
The computer will display: 
PUSHES 


Suppose you change the picture to XXXX. K will have four characters. When the 
computer tries to move "HER'' to K, it needs to move a fourth character also, so it 
moves a blank space at the end, which makes K be "HER ''. The computer will display: 
PUSHER™S 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
O01 FIRST-PRESIDENT PICTURE IS XXXXXXXXxX. 
01 CLEANING-METHOD PICTURE IS XXXxX. 
PROCEDURE DIVISION. 
BEGIN. 
MOVE "WASHINGTON'' TO FIRST-PRESIDENT. 
MOVE FIRST-PRESIDENT TO CLEANING-METHOD. 
DISPLAY CLEANING-METHOD '' MY BLUE JEANS". 
STOP RUN. 
The data division says FIRST-PRESIDENT will be a string having nine characters, 
and CLEANING-METHOD will be a string having four. The first sentence of the 
procedure division makes FIRST-PRESIDENT be "WASHINGTON". The next sentence tries 
to move "WASHINGTON" to CLEANING-METHOD; but because of CLEANING-METHOD's picture, 
the computer moves "WASH" instead. The computer will display: 
WASH MY BLUE JEANS 
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To make sure you understand the word MOVE, look at this example: 


DATA DIVISION. 


WORKING-STORAGE SECTION. 
Of C PICTUREIS XXX. 
OL © D “PICTURE IS: XXX. 


PROCEDURE DIVISION. 


BEGIN. 
MOVE "CAT" TO C. C becomes "CAT". 
MOVE C TO D. D becomes "CAT". 
DUESPUAYE C. Since C 44 StiLL "CAT", the computer displays "CAT". 
MOVE) HE’ TO:C; C becomes "HE ™. 
DISPLAY C "BLED". The computer displays "HE BLED". 
STOP RUN. 


COBOL allows abbreviations. You can say PIC instead of PICTURE IS, and X(7) instead 
of XXXXXXX. 


DATA DIVISION. 


NUMBERS 


WORKING-STORAGE SECTION. 
OT AK° PIC? 99, 


aid: 


In the COMPUTE statement, 


spaces: 
CORRE CT 
COMPUTE 


If you 
be 057 
bother 


If you 
not be 


Instead of saying— 


you can 


BEGIN. 
COMPUTE 


DISPLAY K. 


PROCEDURE DIVISION. 


K 


STOP RUN. 
The PIC 99 says K is a number having two digits. (Each 9 stands for a digit.) The 
procedure division sets K equal to 53 + 4, which is 57. The computer will display: 


ee) ae tee 


change the picture 
instead of 57. 


Ye Lal 


the equal sign and the plus sign must be surrounded by 


INCORRECT INCORRECT 


COMPUTE K=53+4. COMPUTE K.= 5344. 


to 999, K will be a number having three digits. It will 
the computer should display 057. But some computers don't 


to display the 0 at the left; they display just 57. 


change the picture to 9, K will be a number having only one digit. So K will 
57. The computer will not display the correct sum. 


COMPUTE 
say: 


K 


53 +4 


ADD 53 4 GIVING K 
Here are other examples of what you can say: 


SENTENCE 
COMPUTE A = 23 + 4 
COMPUTE A = A + 23 
COMPUTE A = 23 - 4 
COMPUTE A =A - 23 

COMPUTE A = 23 * 4, 
COMPUTE A = A * 23. 
COMPUTE A = 23 / 4, 
COMPUTE A= A/ 4. 

COMPUTE A = 7 ** 


2 
+ 


EQUIVALENT SENTENCE 

ADD 23 4 1 GIVING A. 

ADD 23 4.1 TOA. 

SUBTRACT 4 1 FROM 23 GIVING A. 

SUBTRACT 23 4 1 FROM A. 

MULTIPLY 23 BY 4 GIVING A. 

MULTIPLY “23 BY (As 

DIVIDE 23 BY 4 GIVING A. 0A DIVIDE 4 INTO 23 GIVING A. 
DIVIDE 4 INTO A. 

MULTIPLY 7 BY 7 GIVING A. 
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Mathematical operations should be surrounded by spaces, with one exception: do 
not put a space after a left parenthesis. 


CORRECT INCORRECT INCORRECT 

COMPUTE A= B * (- C+D). COMPUTE) A=] Bo she —- Cc + mi: COMPUTE A = B * (-C + D). 
Mathematical operations (+, -, *, /, and **) are allowed only in sentences that say 
COMPUTE, IF, UNTIL, or WHEN. 

ALLOWED NOT ALLOWED NOT ALLOWED 

COMPUTE A = 2 + 2. DLSPLAY 27 7°72. MOVE.:2>+ 2 TO A. 


DECIMALS 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
O01 (K PIC. 9999V99. 
PROCEDURE DIVISION. 
BEGIN. 
COMPUTE K = 2.208 + 4.109. 
DESPLAY. K: 
STOPPRUNG 
The PIC 9999V99 says K is a number having four digits, followed by a decimal point, 
followed by two digits. (The V stands for the decimal point.) The procedure 
division tries to set K equal to 2.208 + 4.109, which is 6.317; but because of K's 
picture, K will be 0006.31 instead. So the computer should display 0006.31. 


Some computers don't bother to display the zeros: they display <6. 3heg Other 
computers don't bother to display the decimal point: they display 000631. Find 
out what your computer displays. 


You can change that program by saying ROUNDED: 

COMPUTE K ROUNDED = 2.208 + 4.109. 
The computer will find the sum (6.317), and round it so,K is 0006.32 instead as 
0006.31. 


Here's another way to say it: 
ADD 2.208 4.109 GIVING K ROUNDED. 


If J's picture is 99, saying DIVIDE 200 BY 3 GIVING J makes J be 66. Saying 
DIVIDE 200 BY 3 GIVING J ROUNDED makes J be 67. 


You can use the word ROUNDED in any statement that deals with arithmetic: ADD, 
SUBTRACT, MULTIPLY, DIVIDE, or COMPUTE. 


Which is better: saying "COMPUTE X = 4.3" or "MOVE 4.3 TO x"?> You should; usually 
say "MOVE 4.3 TO X", because the computer handles it more quickly. But MOVE 
cannot round; so if you want to round, say COMPUTE. 


MOVE can do strange things: 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
O) »bePiC.999Veo., 
PROCEDURE DIVISION. 
BEGIN. 
MOVE 16725.048 TO L. 
DISPLAY L. 
STOP RUN. 
L's picture makes the computer move the three digits just left of the decimal point 
and the two digits just right of it. L will be 725-04. 
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NEsGA TF Tg Unk, S 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
Ofte: KaPIGs$99 99. 
PROCEDURE DIVISION. 


BEGIN. 
COMPUTE K = 100° 367: 
DESP GRAY IK’. 
STOP RUN. 
Inecepicture, the’S stands for a sign Gwhich can.bé’ plus or minus). K will be 


-0267. The computer should display -0267. 


Some computers don't bother to display the zero: they display -267. Other computers 
display the minus sign on top of the right digit, like this: 0267. On some 
computers, a minus combined with a 7 becomes a P, like this: 0O26P. 


Peeyou*tomit the S from:K‘s picture, K will be 0267 instead of =0267. 


To find the negative of a power, use parentheses: 
COMPUTE A = - (3 ** 2). 
If you omit the parentheses, the computer will get the wrong answer. 


ACCEPT 


Here's how to translate the BASIC word INPUT into FORTRAN and COBOL. 
ASIC: ENPUT ok 
ORTRAN: READ *, 
OBOL: ACCEPT +k: 
Let's look at a COBOL example. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
Giverk (PLOexxk? 
PROCEDURE DIVISION. 


BEGIN. 
DISPLAY "THIS PROGRAM WANTS YOU TO TYPE SOMETHING". 
ACCEPT K. 
DISPLAY kK. 
STOP RUN. 


The computer displays: 

THIS PROGRAM WANTS YOU TO TYPE SOMETHING 

The statement ACCEPT K makes the computer wait for you to type something. If you 
type— 

F IGHT 

the computer will try to move "FIGHT" to K; but since K's picture is XXX, K will 
be "FIG". The computer will display: 

FIG 


Li vou tyne 

ME 

thesconmpltemwiril try to move 'MEv.tomKscsinte’ K's picture is XXXy K will be “ME, 
The computer will display: 

ME 
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Suppose a program says L PIC 999 and ACCEPT L. tiyou “input 


if 
a PDP computer will make L be 004, but an IBM or CDC computer will make L be 400. 


Suppose a programs says M PIC S9999V99 and ACCEPT M. If you want M to be —0034.27, 
here's what to input: 

ON PDP COMPUTERS ON IBM AND CDC COMPUTERS 

“OO034e2/ 0A 36.27 003427 


EDITING 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
OL K PIG UXAXBXXX. 
PROCEDURE DIVISION. 
BEGIN. 
MOVE "HITHER" TO K. 
DISPLAYS: 
STOP oRUN. 
In K's picture, B means a blank space. So when the computer moves "HITHER", K 
becomes "HIT HER". The computer will display: 
HIT HER 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 PHONE-NUMBER PIC 999B9999. 
PROCEDURE DIVISION. 
BEGIN. 
MOVE 2668128 TO PHONE-NUMBER. 
DISPLAY PHONE-NUMBER. 
STOP RUN. 
When the computer moves 2668128, PHONE-NUMBER becomes ''266 8128". The computer 
will display: 
266 8128 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
OF) K PIC -9B9B9993: 
PROCEDURE DIVISION. 
BEGIN. 
COMPUTE K = 741775 + L. 
DISPLAY "THE DECLARATION OF INDEPENDENCE WAS SIGNED ON "' K. 
STOP RUN. 
The computer will display: 
THE DECLARATION OF INDEPENDENCE WAS SIGNED ON 7 4 1776 


Using B to insert a blank is called editing. You've learned about four kinds of 
variables: 

KIND OF VARIABLE SYMBOLS IN PICTURE 

string 

edited string 
number 

edited number 


0 0 XPS 
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You can use these pictures for editing numbers: 
WHAT K WILL BE IF WHAT K WILL BE IF 


K'S PICTURE MEANING YOU MOVE 50320 TO K YOU MOVE O TO K 
B99999999 a blank followed by eight digits "90050320"  ooo0c0cd" 
CLELLL LLL blanks then digits uM 50320" " " 
PELL BLL insert commas where appropriate tei, OO MS 20s N u 
$,98$,$$$ put a dollar sign before the digits " $50,320" " " 
wie | ever put asterisks instead of blanks "#50 , 320" RRR IM 


To edit decimals, put a decimal point in the picture. 
K'S PICTURE IF YOU MOVE 50320.6 TO K IF YOU MOVE -0O4 TO K IF YOU MOVE O TO K 
Z,ZZZ.ZZ2Z.Z2Z “ 50.390.60" TN Eo 


apy by ly Ay ly © A Sy aa 30,320.60" M Oa 
$,99$,$$$.$$ " $50,320.60" fi $.04" a § 
HRA weer ek "#x*x50 320.60" "KkkkeeeK OA" RRR Hee! 


With those pictures, if you move 0 to K the computer doesn't put any digits in K. 
To guarantee that K contains a digit, put 9 in the picture: 

K'S PICTURE IF YOU MOVE 50320.6 TO K IF YOU MOVE .04 TO K IF YOU MOVE 0 TO K 
Gineeraso ASO. Wee ee eee ee ONE 0 TOK 


ByeLo, 209.099 ) 50,320.60" 0.04" A 0.00" 
$,$$$,$$9.99 " $50,320.60" ss $0.04" i: $0.00" 

HH AK. AQ "eS 320.60" Nok) OG" Node etek) OQ" 

To edit negative numbers, use +, -, DB, or CR. 

K'S PICTURE MEANING IF YOU MOVE -2.6 TO“K IF YOU MOVE 2.6 TO K 
ZZZ.ZZ+ put - or + afterwards TEE Wes Pe S2Y GBs 

LEIS A ha put - or blank afterwards SOP EE Gi Wek ne? OO 

ZZZ.ZZDB if negative, put DB (for debtt) " 2.60DB" ne OU SL 

Dou. LLOR if negative, put CR (for credit) " 2.60CR" rtm 00 -- 

For fancier pictures, replace the Z by $, *, or 9. 

Here's how to put the sign before the digits: 

K'S PICTURE MEANING PE, YOU MOVE -2.6 TO K IF) YOU:MOVE «2.6 TO K 
+++ ++ put - or + before the digits Caso 60" Mr eED-36 0" 

Shag Da put - or blank before the digits '"' -2.60" ‘ance OU 


Here are the differences between numbers and edited numbers: 


NUMBER EDITED NUMBER 
ow to put a decimal point in the picture V ; 
S tory, 540%r,DB. or CR 


how to put a sign in the picture 
on Lis S, *, oy Ob 


how to fill up most of the picture 9 
what the value should be an intermediate result the final answer 


in a long calculation to be displayed 
If the variable is called K, yes no 
Can you say ACCEPT K? 
If the variable is called K, yes 


no 
can you use K in further computations? | 
For example, can you say COMPUTE L = K + 1? 
at happens if you try to DISPLAY the might display the zeros, displays correctly | 
alue? decimal point, and minus 
sign incorrectly 
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Eire Less 


Ogden Nash wrote this poem: 

CANDY IS DANDY 

BUT LIKKER IS QUIKKER 

Let's make the computer write the poem onto a disk, and store it under the name POEM. 
Here's how: 


This 45 the IDENTIFICATION DIVISION. 


srapegs aa ae Rio? computers Let you omit this. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
This 45 the name of your computer.?POP and IBM computers Let you omt this. 
environment OBJECT-COMPUTER. 
dLVAALON. name of your computer. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT POEM-FILE ASSIGN TO 
DATA DIVISION. 


On CDC computers, "Location" 4 POEM. 
rede: On IBM computers, "Location" 44 DA-S-POEM. 
ocation-\y, ppp computers, "Location" 44 


This 4s tne DSK RECORDING MODE ASCII. 


data 


FILE SECTION. On CDC 


; 1 " , Le otis I 4 
FD POEM-FILE labeling." q py computers, "Labeling" 44 LABEL RECORDS ARE OMITTED 


division. computers, "Labeling" 44 LABEL RECORDS ARE STANDARD. 

01 POEM-LINE PIC X(25). li et ey " " 

PROCEDURE DIVISION. On POP computers, "Labeling" 44 VALUE ID “POEM. 

BEGIN. 
OPEN OUTPUT POEM-FILE. 

This 46 the MOVE "CANDY IS DANDY" TO POEM-LINE. 
procedute WRITE POEM-LINE. 
GAVASLON. MOVE "BUT LIKKER IS QUIKKER'' TO POEM-LINE. 


CLOSE POEM-FILE. 4/0" computers Let you omit this. 


WRITE porwertis { 
, ’ - A 
STOP RUN. The PDP'S STOP RUN statement closes the file automatically. 


The environment division's last sentence tells the computer where to put the POEM-FILE. 
That sentence is in the FILE-CONTROL paragraph, which is in the INPUT-OUTPUT SECTION. 


The data division's FILE SECTION contains a File Description (FD) of POEM-FILE. 
It also says a POEM-LINE has 25 characters. 


To work with a file, you must OPEN it. So the procedure division's first sentence 
says to OPEN the OUTPUT file, POEM-FILE. Then the computer moves "CANDY IS DANDY" 
to POEM-LINE; since POEM-LINE's picture is X(25), POEM-LINE becomes: 

"CANDY IS DANDY 

Then the computer writes that POEM-LINE onto the POEM-FILE. The rest of the program 
writes the rest of the poem. When you're done using a file, you should CLOSE it. 


A line in a file is called a record. Instead of saying POEM-LINE, some programmers 
say POEM-RECORD or POEM-REC. But you must be consistent: once you've chosen the 
term "LINE", "RECORD", or "REC", stick to that choice throughout the program. 
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This program reads the file and displays it on your terminal: 
IDENTIFICATION DIVISION. © 
PROGRAM-ID. 
TOM. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
_ mame of your computer. 
OBJECT-—COMPUTER. 
name of your computer. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT POEM-FILE ASSIGN TO location 
DATA DIVISION. 
FILE SECTION. 
FD POEM-FILE labeling. 
Ol POEM-LINE PIC X(25). 
PROCEDURE DIVISION. 
BEGIN. 
OPEN INPUT POEM-FILE: 
LOOP. 
READ POEM-FILE AT END GO TO FINISH. 
DISPLAY POEM-LINE. 
GO TO LOOP. 
FINISH. 
DISPLAY ''THAT WAS THE WHOLE POEM". 
CLOSE POEM-FILE. 
SLOP ORUNG 


1/0 


The environment and data divisions are 
the same as for the previous program. 


The procedure division says to OPEN the INPUT file, POEM-FILE; READ a line from the 


POEM-FILE; DISPLAY the POEM-LINE, So you see it on your terminal; and GO back TO 


the beginning of the paragraph, to read another line. The computer will read line 


after line, until it comes to the end of the file and there are no more lines to read. 
The phrase AT END GO TO FINISH makes the computer go to the paragraph named FINISH, 
which says to DISPLAY ''THAT WAS THE WHOLE POEM" on your terminal, CLOSE the POEM-FILE, 


and STOP the RUN. 


In the procedure division, you can name the paragraphs however you please. Instead 


of naming them BEGIN, LOOP, and FINISH, you can name them X, Y, and Z. Then make 


the READ sentence say AT END GO TO Z, and the last line of the second paragraph say 


GOIEEO YN 


The READ statement differs from the WRITE statement in two ways: 
WRITE statement mentions a LINE, but a READ statement mentions a FILE. J 
READ statement must contain the words AT END. 


wast 
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This program reads a POEM-FILE, counts how many lines are in it, displays the COUNT, 
and writes a copy of the file; the copy is called POEM2-FILE: 
IDENTIFICATION DIVISION. 
PROGRAM-ID. 
a i 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
name of your computer. 
OBJECT—COMPUTER. 
name of your computer. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT POEM-FILE ASSIGN TO location. 
SELECT POEM2-FILE ASSIGN TO location. 
DATA DIVISION. 
FILE SECTION. 
FD POEM-FILE labeling. 
O01 POEM-LINE PIC X(25). 
FD POEM2-FILE labeling. 
Ol POEM2-LINE PIC X(25). 
WORKING-STORAGE SECTION. 
01 COUNT-OF-HOW-MANY-LINES PIC 99. 
PROCEDURE DIVISION. 
BEGIN. 
OPEN INPUT POEM-FILE. 
OPEN OUTPUT POEM2-FILE. 
MOVE O TO COUNT-OF-HOW-MANY-LINES. 
LOOP’: 
READ POEM-FILE AT END GO TO FINISH. 
ADD 1 TO COUNT-OF-HOW-MANY-LINES. 
WRITE POEM2-LINE. 
GO TO LOOP. 
FINISH. 
DISPLAY COUNT-OF-HOW-MANY-LINES. 
CLOSE POEM-FILE POEM2-FILE. 
STOP RUN< 
The picture for COUNT-OF-HOW-MANY-LINES assumes the count is a two-digit number; 
in other words, it assumes the poem has less than 100 lines. 


To handle devices other than disks, change the "location" and "labeling": 


ON CDC COMPUTERS ON IBM COMPUTERS 
DEVICE LOCATION LABELING LOCATION LABELING 
disk POEM LABEL RECORDS ARE OMITTED DA-S-POEM LABEL RECORDS ARE STANDARD 
lineprinter OUTPUT LABEL RECORDS ARE OMITTED UR-S-POEM LABEL RECORDS ARE OMITTED 
card reader INPUT LABEL RECORDS ARE OMITTED UR-S-POEM LABEL RECORDS ARE OMITTED 


Suppose you are dealing with a file named JOE, and each line of JOE-FILE Ls. a 
three-digit number. Should the line's picture be edited (JOE-LINE PIC DLL) OF 
unedited (JOE-LINE PIC 999)? 

When you read a file, the line's picture must be unedited and match the picture in 
the program that wrote the file. 


ren you write a file, ask yourself, "What will read it?’ If the answer 154 ay Guo 
rogram", the picture must be unedited. If the answer is "only a human", edit the 
picture. 
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Remember: if one program writes a file, and another program reads it, both programs 
must use the same picture. For example, if a program writes JACK-FILE and says 
JACK-LINE PIC 89999V99, the program that reads JACK-FILE must also say JACK-LINE PIC 
S$9999V99. 


To write and read unedited numbers, the computer takes a short-cut: it omits decimal 

oints, and locates the negative sign on top of the last digit. For example, instead 
of writing -0034.27 in JACK-FILE, the computer writes just 003427. When another 
program reads 003427 from the file, the S9999V99 picture tells the computer the 
003427 means -0034.27. 


After you WRITE a line, you cannot use the line again in the program. For example, 
after you say WRITE POEM-LINE, you should not say MOVE POEM-LINE TO K; it won't work. 


Let's make the computer compute the square of 12 and the square of 13 and write 
this file: 
HERE ARE THE SQUARES: 


HEY WERE REAL GROOV 
The top and bottom lines are long strings whose pictures are X(21). The other two 
lines are short numbers whose pictures are 999. Here's the program: 
DATA DIVISION. 
FILE SECTION. 
FD REPORT-FILE labeling. 
Ol LONG-REPORT-LINE PIC X(21). 
01 .SHORT-REPORT-LINE PIC 999. 
PROCEDURE DIVISION. 
BEGIN. 
OPEN OUTPUT REPORT-FILE. 
MOVE "HERE ARE THE SQUARES:' TO LONG-REPORT-LINE. 
WRITE LONG-REPORT-LINE. 


COMPUTE SHORT-REPORT-LINE = 12 * 12. 
WRITE SHORT-REPORT-LINE. 
COMPUTE SHORT-REPORT-LINE = 13 * 13. 


WRITE SHORT-REPORT-LINE. 

MOVE "THEY WERE REAL GROOVY'' TO LONG-REPORT-LINE. 

WRITE LONG-REPORT-LINE. 

CLOSE REPORT-FILE. 

STOP RUN. 
The computer understands that SELECT means create a file, ASSIGN TO means give it 
a location, FD means a file description, and an 01 underneath FD means a description 
of a line in the file. The computer does not understand -FILE, -LINE, LONG-, and 
SHORT-; those suffixes and prefixes are just to help hwnans read the program. 
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UPDATING 


Suppose JOAN-FILE contains these 3-digit numbers— 
657 
713 
829 
199 
and you want to change the file, so each number is increased by eis 
678 
734 
850 
220 
Here's how to make the change: 
DATA DIVISION. 
FILE. SECLION: 
FD JOAN-FILE labeling. 
Ol. JOAN-LINE PIC.999.. 
PROCEDURE DIVISION. 
BEGIN. 
OPEN I-O JOAN-FILE. 
LOOP. 
READ JOAN-FILE AT END GO TO FINISH. 
ADD 21 TO JOAN-LINE. 
WRITE JOAN-LINE. 
GO TO LOOP. 
FINDS. 
CLOSE JOAN-FILE. 
STOP RUN. 


To change a file, OPEN it for I-O. Before you WRITE 2 new dine of an 1-0 tivte, 
you must READ the line that was originally there. 


LDENTLELCAT.LON, D1 VRSTEGRN 


The identification division can include these paragraphs: 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 
In each paragraph after the PROGRAM-ID, put whatever garbage you please. The computer 
ignores everything the IDENTIFICATION DIVISION says. 


The identification division helps the computer center's librarian classify your 
program. The librarian wants the INSTALLATION paragraph to contain the computer 
center's name and address, the DATE-WRITTEN paragraph to tell when you finished 
debugging the program, the DATE-COMPILED paragraph to tell when the computer translated 
the program from COBOL into machine language, and the SECURITY paragraph to tell who 
may look at the program and who must not. 


If you put the wrong date in the DATE-COMPILED paragraph, don't worry: when you 
ask the computer to produce a COBOL listing of your program, the listing will 
automatically show the correct date instead. 
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mrerneah & NCE S BAN Ue Lo I NES 


You can type several sentences on the same line, like this: 
MOVEQoaltOeke es ADD 2°TO.K. DISPLAY K. 
Put a period after each sentence. The line must not go past the 72nd column. 


If a sentence is too long to fit on one line, continue the sentence onto the next line: 
MOVE "LOVE MAKES ME HICCUP, DEATH MAKES ME BURP, MOM CRIES" 
TOse dus 2 
If you split a word or number, put a hyphen in column 7 of the second line: 
MOVE ''LOVE MAKES ME HICCUP, DEATH MAKES ME BURP, MOM CRIES" T 
= Oe. 
If you split a string, put a hyphen in column 7 and a quotation mark in’ column 12: 
MOVE ''LOVE MAKES ME HICCUP, DEATH MAKES ME BURP, MOM CRIES FO 
= "R. ARVDOCTOR™ TORS. 


PDP-10 computers let you put hyphens at the left margin instead of in column 7. 


ASTERISKS 


The computer ignores any line having an asterisk in column 7. So if you put this 
line in your program— 

* THIS IS A LOUSY PROGRAM 
—the computer will ignore the comment. 


Create comments that explain how your program works. Put the comments at the end 
of the identification division, the beginning of the procedure division, and wherever 


your program looks confusing. 


PDP-10 computers let you put the asterisks at the left margin. 


DECIMAL POINT TS COMMA 


Some Europeans write commas instead of decimal points, and write decimal points 
instead of commas. 
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To write a COBOL program for a Frenchman or a German, make three changes.... 
1., Insert: this: line; 
DECIMAL POINT IS COMMA 
Put the line in a SPECIAL-NAMES paragraph at the end of the environment division's 
configuration section: 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
name of your computer. 
OBJECT-COMPUTER. 
name of your computer. 
SPECLIAL-NAMES. 
DECIMAL POINT IS COMMA. 
2. Type all numbers in French-German notation. So instead of typing— 
MOVE 5243794.95 TO K 
type: 
MOVE 5243794,95 TO K 
3. Use French-German notation in pictures for edtted numbers. 
For a Frenchman: K PIC Z.ZZZ.ZZZ,Z 
For a German: KO PEC CAB 22h 22452 


Those are the only changes Europeans make. They Still put a period at the vendyor 
every sentence, and still use English COBOL words such as MOVE and DISPLAY. 
erican COBOL: DISPLAY ''HELLO, STUPID’: 
DISPLAY "BONJOUR, BETE"’. 
DISPLAY ''GUTEN TAG, DUMMKOPF"'. 


ABBREVIATIONS 


You can combine a pair of statements into a single statement, by using these 
abbreviations: 
PAIR OF STATEMENTS ABBREVIATION 


WRITE POEM-LINE FROM "I LOVE YOU". 


READ POEM-FILE INTO K AT END GO TO X. 


At the beginning of the procedure 01 L PIC 999 VALUE 47/3. 
division, MOVE 473 TO M. 

these rules: 
he value can’ be a constant (such as 473) but nota variable (such as J). 
alues should be in the working-storage section, not the file section. 

e value's picture should be unedited. 


Instead of saying WRITE POEM-LINE FROM "I LOVE YOU", you can say WRITE POEM-LINE FROM M, 
if you already moved "I LOVE YOU" to M. 


If C's picture is X(20), you can use these abbreviations: 


ABBREVIATION MEANING 

MOVE ZEROS TO C. MOVE ''00000000000000000000" TO C. 
MOVE SPACES TO C. MOVE "' Mh TORaCe. 
MOVE ALL "MAN" TO C. MOVE '"'MANMANMANMANMANMANMA" TO C. 
MOVE QUOTES TO C. MOVE a string of 20 quotes TO C. 


You can use those abbreviations in a VALUE clause. For example, you can say: 
01 C PIC X(20) VALUE ALL "MAN". 
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iar 


Like BASIC and FORTRAN, COBOL uses the word IF. 
the procedure division: 

iPik= PS EQUAL TO 3° GG. TO .X. 

IFT 15 LESS THAN 7 -PERFORM ¥.; 

Ie MULLS NOT GREATER THAN 9: ADD 1 TO. A. 
You can use 6 kinds of phrases and their abbreviations: 


You can put these statements in 


PHRASE ABBREVIATION FURTHER ABBREVIATION 
IS EQUAL TO EQUAL TO = 

IS LESS THAN LESS < 

IS GREATER THAN GREATER > 

IS NOT EQUAL TO NOT EQUAL TO NOT = 

IS NOT LESS THAN NOT LESS NOT < 

IS NOT GREATER THAN NOT GREATER NOT > 


For example, instead of saying "IF L IS LESS THAN 7", you can say "IF L LESS 7" or 
"IF L < 7". Instead of saying "IF M IS NOT GREATER THAN 9", you can say "IF M NOT 
GREATER 9" or "IF M NOT > 9" 


You can put several statements.after the IF: 
EES J K ADD 1 TO J. ADD 5 TO K PERFORM X. 
Svatsmeans, “Lf J 1s equal to Ky do these three things':)gmadd .1 to J,..then taddeS to 
K, then perform paragraph X.'' To make that sentence easier for humans to read, 
type each consequence on a separate line: 
TE K 
ADD at TOW 
ADD. Dat Ok 
PERFORM X. 


The word ELSE .means. "if not": 

IF AGE < 18 DISPLAY "MINOR" ELSE DISPLAY ''ADULT". 
That means, "If AGE is less than 18, display the word MINOR; 
display the word ADULT." 


Lf not. less ethane. o, 


Here's a long COBOL sentence: 

Le, ACE, < 13 DISBLAY CHIE’ 

ELSE IF AGE < 20 DISPLAY 'TEEN-AGER" 

ELSE IF AGE < 40 DISPLAY "YOUNG ADULT" 

ELSE IF AGE < 60 DISPLAY "MIDDLE-AGED"' 

ELSE DISPLAY, \ SENLOR CITIZEN @ 
Uiameansy Lb ACK.1s,\less, thant. displayerhe word CHILD; 1f not. less than.13,::do 
the following: if AGE is less than 20, display the word TEEN-AGER; if not less 
than 20, do the following: if AGE is less than 40...and so on. The computer will 
display just one phrase, to describe the person's AGE. 


You can use the words AND and OR and abbreviate: 


PHRASE 
IF K > 1 AND K < 100 
TRyL <3 OR) Lue 6,0R-L= 


S~ OR LE 


ABBREVIATION 
TER 5? 1 AND. <7t00 


2 OR 5 On VLE ar OR ANG ORG 9S OR 2-'OR: > 
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UNTIL 

DATA DIVISION. 
Ol VIP LGr yao: 
PROCEDURE DIVISION. 
BEGIN. 

MOVE 5 TO I. 

PERFORM X UNTIL I > 100. 

STOP RUN. 
X. 

DISPLAY I. 


COMPUTE I= 1 *) 2. 
The computer will perform paragraph X repeatedly, until I > 100. The computer will 
display *5, 810}, ¢20, 40; "and cOerete will not display 160. 


Here are the details. When the computer encounters PERFORM X UNTIL 1 TOOL At 
checks ‘whether f 2/100. ‘JTEMI = (L005 sthemcomputer proceeds to the next statement 
(the STOP RUN); but if I is not greater than 100, the computer performs paragraph X 
and then re-executes the statement PERFORM X UNTIL I > 100. 


To translate a BASIC "FOR...NEXT loop" into COBOL, say "PERFORM": 
BASIC COBOL 

SEO GL F PROCEDURE DIVISION. 
2.0 PRINT iL BEGIN. 

NEXT IL PERFORM X VARYING I FROM 5 BY 1 UNTIL I > 17. 
END STOP RUN. 


DISPLAY 1: 


10 *FOR Dy= 00 (O07 STEP) 3 PROCEDURE DIVISION. 
20 PRINT I BEGIN. 
O NEXT IL PERFORM X VARYING I FROM 5 BY 3 UNTIL I > 17. 
O END STOP RUN. 
X. 

DISPLAY 1. 
LO" FORM GTO TL? PROCEDURE DIVISION. 
20 POR FI.= 1 UTO "3 BEGIN. 
0 PRINT OL, J PERFORM X VARYING I FROM 5 BY 1 UNTIL I > 17 
40 NEXT J AFTER VARYING J FROM 1 BY. 1 UNTIL J > 3. 
SU NED ae STOP RUN. 
60 END ae ade: 

DISPLAY Gard. 


GROUP. ITEUWS 


In the data division, you can say: 


OLE: 
O27) SL PIGrgoo:, 
O2F a Mar ECM 2 


O02 N: PLC 99% 
That means K is a combination of L, M, and N. If the procedure division says 
MOVE..427 OeL. 
MOVE 8 TO M. 
MOVE 31. TORN: 
then K will be "427831". 


CGEuK 


ee: 
x e 
em asesceess LEO 


scarsaess 
sy 
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Since K is a combination of other variables, K is called a group variable or 

group ttem. L, M, and N are elementary ttems. Notice that K is the string '427831", 
not the number 427831. A group item is always a string. Since K is a string, not a 
number, you cannot say ADD 1 TO K, although you can say ADD 1 TO L or ADD 1 TOM 

or ADD 1 TON. 


Here's a group item, for a weight-reducing studio: 
O01 PERSONAL-INFORMATION. 
O2 NAME. 
03 LAST-NAME PIC X(20). 
03  FIRST-NAME PIC X(15). 
03 MIDDLE-INITIAL PIC X. 
O29 SEXP IC Pxt A person's SEX 45 "M" of "F"~” 
02 AGE PIC 99. 
02 WEIGHT-PROGRESS. 
03  WEIGHT-WHEN-ENTERED-PROGRAM PIC 999. 
03 WEIGHT-THIS-WEEK PIC 999. 
03 NUMBER-OF-WEEKS-SO-FAR PIC 999. 
PERSONAL-INFORMATION is composed of NAME (which is composed of LAST-NAME, FIRST-NAME, 
and MIDDLE-INITIAL), SEX, and WEIGHT-PROGRESS (which is composed of WEIGHT-WHEN- 
ENTERED-PROGRAM, WEIGHT-THIS-WEEK, and NUMBER-OF-WEEKS-SO-FAR). So PERSONAL-INFORMATION 
is composed of numbers and strings. Altogether, PERSONAL-INFORMATION contains 48 
characters (20 + 15 +1+1+2 +3 + 3 + 3); the computer considers 
PERSONAL-INFORMATION to be a string whose picture is X(48). If you say L PIC x(48), 
you can move all the PERSONAL-INFORMATION to L by saying: 
MOVE PERSONAL-INFORMATION TO L. 
To move the NAME to M, without moving the SEX, AGE, and WEIGHT-PROGRESS, say: 
MOVE NAME TO M. 


To write a lot of information into a file, make the file's LINE be a group item. 


Suppose your program says— 
O01 OLD-ADDRESS. 
02° STREET PIC’XC30)* 
Kary CITY VPICHX( 20)" 
02  STATE-ABBREVIATION PIC X(2). 
02 ZIP-CODE PIC 99999. 
and also says: 
O01 NEW-ADDRESS. 
Ove STRERT PIC XCOO). 
OceRGLLY ePIC x( 20). 
02  STATE-ABBREVIATION PIC X(2). 
02 ZIP-CODE PIC 99999. 
If you say MOVE STREET TO N, the computer won't know whether you mean the old STREET 


or the new one. To avoid ambiguity, say: 
Ome) 


MOVE STREET OF NEW-ADDRESS TO N. 
he. nay, -) ) 28 2K 
(BEY 
Ceri. Tes LP 
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Suppose you Say: 
Olah 
O20 SJ VPA Ce KECK. 
O24 Kk - PLC QXxxs 
O02 ‘LOOP EG XXX: 
OL WM 
O2 pele P EGE XXX: 
Owe Nee Gu KR 
O27 Iw LO XOX. 
Suppose you MOVE "HOTDOGMAN'" TO I. Then J OF I is "HOT", K is "DOG", and L OF I 
is "MAN" : 


i I 
If you MOVE I TO M, M will be "HOTDOGMAN '', since M's picture has 11 characters 
instead of 9: 


M M 


If instead you say MOVE CORREGPONDING I TO M, the computer will move each elementary 


item of I to the corresponding item of M. In other words, the computer will move 
J OF T-to ld OF Mand move LOOF Into.G OF M: 


M 


L N Al} 
OF OF 
M M 
N will remain undefined. 


If A and B are group items composed of unedited numbers, you can say ADD CORRESPONDING 
A TO B. The computer will add each elementary item of A to the corresponding item of 
Be 


Although you can say ADD CORRESPONDING and SUBTRACT CORRESPONDING, you aren't allowed 
to say MULTIPLY CORRESPONDING or DIVIDE CORRESPONDING or COMPUTE CORRESPONDING. 


Suppose EMPLOY-FILE contains a lot of information about each employee, and you want 
to write a REPORT-FILE that shows just their names and home: phone numbers. Suppose 
EMPLOY-FILE contains the employee's name in columns 1-40 and his home phone number 
(including area code) in columns 61-70. Columns 41-60 and columns 71-80 contain 
information your program doesn't need (such as age, sex, address, salary, kind of 
job, and number of years with the company). Here's what to say: 

DATA DIVISION. 

FILE SECTION. 

FD EMPLOY-FILE labeling. 

Ol EMPLOY-LINE. 


02 EMPLOYEE-NAME PIC X(40). EMPLOYEE-NAME 45 tn columns 1-40. 
02 FILLER PIC x(20). Innekevant info 4s 4n cokumns 41-60. 
02 HOME-PHONE. 

03 AREA-CODE PIC 999. AREA-CODE 45 in columns 61-63. 

03 EXCHANGE PIC 999. EXCHANGE 44 tn columns 64-66. 


03 REST-OF-PHONE-NUMBER PIC 9999. REST-OF-PHONE-NUMBER 45 in cok. 67-70. 
02 FILLER PIG. XG10). Innekevant info 4s 4n cokums 71-80. 
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FD 
Ol 


REPORT-FILE labeling. 

REPORT-LINE. 

02 EMPLOYEE-NAME PIC X(40). 

02 HOME-PHONE. 

03  LEFT-PARENTHESIS PIC X. 

03  AREA-CODE PIC 999. 

03 RIGHT-PARENTHESIS PIC X. 

03 EXCHANGE PIC B999. 

Qo eDASH (PT GEN: 

03 - REST-OF-PHONE-NUMBER PIC 9999. 

PROCEDURE DIVISION. 

BEGIN. 
OPEN 
OPEN 

LOOP. 

READ 

MOVE 

MOVE 


INPUT EMPLOY DLEe 
OUTPUT REPORT-FILE. 


EMPLOY-FILE AT END GO TO FINISH. 
CORRESPONDING EMPLOY-LINE TO REPORT-LINE. 
"(" TO LEFT-PARENTHESIS. 

MOVE ")'' TO RIGHT-PARENTHESIS. 

MOVE. “="" TO DASH. 

WRITE REPORT-LINE. 

GO TO LOOP. 

FINISH. 

CLOSE EMPLOY-FILE REPORT-FILE. 

STOP RUN. 
The special word FILLER (which appears twice in the FILE SECTION) stands for data 
the program won't mention later. In EMPLOYEE-LINE, the HOME-PHONE looks like this— 
6172668128 
but in REPORT-FILE it looks like this: 
(617) 266-8128 


SORT 


Each line of the 
and other information about 
Here's how to put the file in alphabetical order, 


Suppose CUSTOM-FILE contains information about your customers. 
file contains the customer's last name in columns 1-20, 
the customer in columns 21-80. 


according to the customer's name: 
INPUT-OUTPUT SECTION. 
SELECT CUSTOM-FILE ASSIGN TO locationA. 
SELECT SORT-FILE ASSIGN TO locationB. 


On CDC computers, 
LocationB 44 SORT. 
On IBM computers, 
LocationB 44 UT-S-SORT. 


DATA DIVISION. 
FILE SECTION. 


On POP computers, 
LocationB 48 DSK DSK DSK 


FD CUSTOM-FILE labeling. RECORDING MODE ASCII. 
O01 CUSTOM-LINE PIC X(80). 
SD SORT-FILE. 
01 SORT-LINE. 
02 LAST-NAME PIC X(20). 
O02 FILLER PIC XC60) 


PROCEDURE DIVISION. 
BEGIN. 
SORT SORT-FILE ON ASCENDING KEY LAST-NAME 
USING CUSTOM-FILE GIVING CUSTOM-FILE. 
STOP RUN. 
Putting a file in order, by alphabetizing or any other method, is called sorting. 
To sort the CUSTOM-FILE, the computer has to create a temporary file called a 
SORT-FILE. In the data division, the SD means a Sort-file Description. In the 
procedure division, the SORT sentence makes the computer automatically open 
the CUSTOM-FILE, sort it, and close it. 


In the SORT sentence, if you replace ASCENDING by DESCENDING, the computer will 
sort the file in reverse order, so the Z's come first and the A's come last. 


You can make the program fancier, by inserting extra statements before and after 

the SORT statement. But since the SORT statement automatically tells the computer 
to open CUSTOM-FILE, the CUSTOM-FILE must not be open already. If you already said 
OPEN CUSTOM-FILE, you must say CLOSE CUSTOM-FILE before you give the SORT statement. 


If you replace GIVING CUSTOM-FILE by GIVING REPORT-FILE, the computer won't change 
CUSTOM-FILE, but will create a REPORT-FILE containing the information sorted. For 
REPORT-FILE, you must type an FD and SELECT it. The computer will automatically 
open it, so it must not be open already. 


Suppose columns 51-57 tell how much each customer bought from you during the past 
year, and you want to know which customers bought the most. You want ‘the’ customers 
printed in this order: the customer that bought the most, the customer that bought 
the next most, etc. If two customers bought exactly the same amount, you want their 
names printed in alphabetical order. This program does it: 
INPUT-OUTPUT SECTION. 
SELECT CUSTOM-FILE ASSIGN TO locationA. 
SELECT SORT-FILE ASSIGN TO locationB. 
DATA DIVISION. 
FILE SECTION. 
FD CUSTOM-FILE labeling. 
Ol CUSTOM-LINE PIC X(80). 
SD SORT-FILE. 
Q1 SORT-LINE. 


02 LAST-NAME PIC X(20). cokwnns 1-20 
02. FILLER ‘PIC 2050): cokumis 21-50 
02 AMOUNT-BOUGHT-DURING-YEAR PIC 9999V99. columns 51-57 (the V doesn't 
02 FILLER PIC X(23). use a column) 
PROCEDURE DIVISION. 
BEGIN. 


SORT SORT-FILE ON DESCENDING KEY AMOUNT-BOUGHT-DURING-YEAR 
ON ASCENDING KEY LAST—-NANE 
USING CUSTOM-FILE GIVING CUSTOM-FILE. 


STOP RUN. 
The SORT sentence says to sort the file so that AMOUNT-BOUGHT-DURING-YEAR is in 


DESCENDING order; in case of a tie, put LAST-NAME in ASCENDING order. 


Now you know the features of COBOL that programmers use most often. For the many 
extras, read the Cormentary. 
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Fun 


From 1958 to 1962, the top computer organizations in America and Europe tried to 
invent a perfect language. They called it "ALGOL”. It's simple and beautiful. 


Here's how to writé ALGOL programs on a PDP-10 computer. (If you're using an IBM 
computer, make the changes listed at the end of the chapter.) 


SIMPLE PROGRAMS 


Here's an ALGOL program: 

BEGIN PRINT(7+5-1); 
PRINT 5@-4104+10)0e8 
PRINT(-8+1); 


END 
An ALGOL program must begin with the word BEGIN, and end with the word END. Each 
statement must end with a semicolon. (Exception: in the program above, you can 


omit the semicolon. at the end of line 3, since END comes right after Lt The 


program makes the computer print: 
1G 32 ae 


That's the traditional way to type an ALGOL program. You can put several statements 
on the same line and not indent— 

BEGIN PRINT(7+5-1); PRINT(52-(10+10)); PRINT(-8+1); END 

but the traditional style is prettier. 


As in FORTRAN, you can use integers and reals. For reals, put digits after the 
decimal point: 

INTEGER REAL WRONG 

5 0) on 


For powers of ten, use the symbol &: 
FORTRAN ALGOL 


4.3E6 4.386 

You can use these operations: 

OPERATION SYMBOL TYPE OF ANSWEK 

addition x+y real, unless x and y are both integers 

subtraction x-y real, unless x and y are both integers 

multiplication x*y real, unless x and y are both integers 

division x/y always real 
exponents xty real, unless x and y are both integers and y is non-negative 


Here are examples: 
Shacd Vis 840 


5+3: fia? & 
af ty Seo aS FORTRAN would give 0 rndstead 
isi oie 850 FORTRAN would give & tnstead 


24(-3) is .125 FORTRAN would give 0 instead 
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You can use these functions: 


FUNCTION SYMBOL 
square root SQRT(x) 
sine SIN(x) 
cosine COS(x) 


arctangent ARCTAN(x) 

logarithm LN(x) 

e* EXP(x) 

The x can be either an integer or a real. But even if x is an integer, the answer 
is real. For example, SQRT(9) is 3.0, and SQRT(2) is 1.4142135. In FORTRAN, you'd 
have to say SQRT(9.0) and SQRT(2.0) instead. 


For strings, say WRITE instead, of PRINT: 
BEGIN WRITE(''HOT''); 
WRITE C''DOG") ¢ 
NEWLINE; 
WRITE(''MAN") ; 
END 
The computer will write HOT, then DOG, then on a new line write MAN: 
HOTDOG 
MAN 


The computer will ignore any statement that begins with the word COMMENT. 


VARTABLES 


The name of a variable can be short (like X and N and COST2) or long—up to 64 letters 
and digits. It must begin with a letter. 


Tell the computer which variables are integers and which are reals: 
BEGIN REAL es, SONG ER ye an 


A. =SQRTC2 2 
Ge ts I oe fe 
Ze=at7 
PRINTCMEY 42 
END 
The first line says X is’ real; and Y and Z’are integers...) 4 1s the real stumpen 


1.4142136, Y is the amteger 10, and Z is the integer=16.) Theycomputer wad l, pene 
the’ sums) 27) 41 42073), snserenti fic notation. 


If you don't say whether X, Y, and Z are integers fon reals,, the computer will gripe: 
Saying whether a variable is an integer or a real is called a declaration. The 
declarations must come immediately after the word BEGIN. 


If you say J is real and say J:=5, the J will beys 0 Of you say K 1s sanpintevger 
and say K:=2.9, the computer will round 2.9 to the nearest integer, so K will be 3. 


FORTRAN would ignore the .9 and make K be 2. 


BEGIN REAL X; 
WRITE("TYPE A NUMBER"); 
NEWLINE; 
READ(X) ; 
WRITE("THE SQUARE OF YOUR NUMBER IS"); PRINT(X+2); 
END 
The computer will write TYPE A NUMBER. It will read the number you type and will 
PYrinLeLte:. square. 


In a program that outputs and then READs, say NEWLINE in between. 
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BEGIN. WRITE("GOOD "); 
GO TO MOMMY; 
WRITE(''BAD "'); 
MOMMY: WRITE("'APPLE ''); 
WRITE("'PIE''); 
END 
The computer will write: 
GOOD APPLE PIE 
In that program, MOMMY is the fourth statement's label. 


BEGIN... INTEGER I; 
FOR 1:* 27°°7% ‘TO *DO° PRINCI; 
WRITE('"HELLO") ; 
END 
The computer will print 4, 49, and 100. Then it will write HELLO. 


STATEMENT MEANING 

OR ats =40 STEP L UNTIL 15° DO PRINTCI42)- Print thessquares of 10, 
139914,7 ‘atrdial 

Onesie 2 ee 1 FOSTER 13 UNTIL DOPPRINI(T bie Print. the: squares, of) 25.11, 7!) 6:7; 
DPA C GL ses O5n 4 OW Pee aes 

IF X<4 THEN WRITE("CAT"): Ti< Kea Weite CAT? 


1 wae 


IF X<4 THEN WRITE("CAT") ELSE PRINT(8+9); If X<4, write CAT. If not, print 17. 
:=I1F X<4 THEN 8 ELSE 9; Let Y=8, if X<4. If not, let Y=9. 
:=N+(IF X<4 THEN 8 ELSE 9); Let Y=N+8, if X<4. If not, let Y=N+9. 

IF X<4 THEN GO TO MOMMY; If X<4, go to MOMMY. 

OQ TO IF X<4 THEN MOMMY ELSE DADDY; Go to MOMMY, if X<4. If not, go 


to DADDY. 


This statement is so long it takes two lines: 
IF P<.03 THEN WRITE('HICCUP"') 
ELSE IF X<4 THEN WRITE("CAT'') ELSE PRINT(8+9); 
Since those lines contain only one semicolon, they form only one statement, not two. 
It means, “If P is. less than .03, write HICCUP; if not less than .03, do the following: 
Pris less..than 4, write:-CAT: "iT not tess thane s, print 172" 


You can use these conditions: 


CONDITION MEANING 

IF X=4 if X equals 4 

EF X<=4 if X is less than or equal to 4 

IF X>=4 if X is greater than or equal to 4 
IF X#4 LPs edotvediual .to.4 


IF X>4 AND X<10 OR X>20 AND X<30 if X is greater than 4 and less than 10, or 
greater than 20 and less than 30 
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This program's simple: 

BEGIN WRITE("BILL "); 
WRITE("KICKS ''); 
WRITE(''MARY''); 

END 

The computer will print: 

BILL KICKS MARY 


This program does the same thing: 
BEGIN PROCEDURE K; WRITE("KICKS '"); 
WRITEC("BILL "); 
K; 
WRITE ("MARY") ; 
END 
The top line defines K to be WRITE("KICKS "). The rest of the program says to write 
BILL, then do K, then write MARY. 


BEGIN PROCEDURE T; WRITE("'TICKLISH "); 
WRITEC’T FEEL ()5 


END 
The computer will write: 
I FEEL TICKLISH TICKLISH TICKLISH 


BEGIN INTEGER 1; 
PROCEDURE DOUBLE; 1:=2*1; 
J Rg ie 
DOUBLE ; 
DOUBLE ; 
PRINT(I); 
END 
The second line defines DOUBLE to be the procedure of,doubling L...The computer will 
let I be 7, then do a DOUBLE, then another DOUBLE, and finally print 28. 


Procedures should be defined at the beginning, immediately after BEGIN and declarations 
such as INTEGER IL. 


BEGIN PROCEDURE P; GO TO MOM; 
WRITE(''MARY "'); 
Es 
WRITE("HATES ''); 
MOM: WRITECULIES (8 
END 
The top line defines P to be GO TO MOM. The computer will write MARY, then do P, 
which makes it go to MOM and write LIES: 
MARY LIES 
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Heart 
COMPOUNDB STATEMENTS 
Here's a simple statement: 
WRITE("MEAT"') ; 
This compound statement does the same thing: 
BEGIN 
WRITE (''ME") ; 
WRITE("AT"'); 
END; } 
Like a program, a compound statement begins with BEGIN and ends with END. Like all 
statements, a compound statement ends with a semicolon. 
LINE EQUIVALENT LINES 
FOR T:=19STEP 1 UNTIL 10 DO WRITEC’MEAT")—° POR I:=1 STEP 1 UNTIL 710 D0 
BEGIN 
WRITE(''ME") ; 
WRITE ( VATED: 
END; 
LF X<4 THEN WRITE(''MEAT') ; IF X<4 THEN 
BEGIN 
WRITE(''ME'"); 
WRETECIUAT. ): 
END; 
F X<4 THEN WRITE("MEAT') ELSE PRINT(5+2); IF X<4 THEN 
BEGIN 
WRITE(''ME") ; 
WRETE GAT‘): 
END no semtcolLon here, since the IF 
ELSE PRINT(5+2);  Atatement tsn't done 
PROCEDURE P; WRITE(''MEAT") ; PROCEDURE’ P’; 
BEGIN 
WRITE (''ME'') ; 
WRITE("AT") ; 
END; PEL 
This program computes V14+V24+V734+V44+/5+V6+V77+/8+V9+V10, and also = * 5 zt 4 ay : + - + é * 


Bee yl, 

Peat 3) 10 

BEGIN INTEGER I; REAL SUMSQUARES, SUMRECIPROCALS ; 
SUMSQUARES:=0.0; SUMRECIPROCALS:=0.0; 
FOR I:=1 STEP 1 UNTIL 10 DO FORTRAN would require FLOAT (T) 
BEGIN (instead of I 
SUMSQUARES : =SUMSQUARES+SQRT( 1) ; 
SUMRECIPROCALS :=SUMRECIPROCALS+1/1; “FORTRAN would require 1.0: 
END; AnAtead of 1 
PRINT( SUMSQUARES) ; PRINT(SUMRECIPROCALS) ; 

END 


This program does the same: 
BEGIN INTEGER I; REAL SUMSQUARES, SUMRECIPROCALS ; 
PROCEDURE BIGGERSUMS; 


BEGIN 
SUMSQUARES : =SUMSQUARES+SQRT(TI) ; definition of BIGGERSUMS 
SUMRECIPROCALS : =SUMRECIPROCALS+1/1; 

END; 

SUMSQUARES:=0.0; SUMRECIPROCALS: =0.0; 

FOR I:=1 STEP 1 UNTIL 10 DO BIGGERSUMS; main routine 


PRINT(SUMSQUARES) ; PRINT(SUMRECIPROCALS) ; 
END 
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This program is tricky: 
BEGIN INTEGER 1; 


I:=5; 
BEGIN INTEGER I; 
:=7; 
PRINT(I); 

END; 

PRINT(It2); 
END 
In that program, the computer sets I equal to 5. Then the computer does the 


compound statement: 
BEGIN INTEGER I; 
1:=7; 
PRINT(1); 
END; 
Since the compound statement begins by saying INTEGER I, the computer creates a 
temporary value of I, just for the compound statement. That value is 7, and the 
computer prints it. When the computer finishes the compound statement, it forgets 
the temporary value of I, and returns to the original value, 5. The program's 
last statement makes the computer print 25. 


The temporary value of I, which is 7, is called the local value. The general value 
of I, which is 5, is the global value. A compound statement that creates a 
temporary value is called a block. 


Suppose you're writing a long program that uses a real variable S in only one 

compound statement. Say REAL S at the beginning of the compound statement, instead 

of at the beginning of the program. Here's why: 

1. The program will be easier for a human to read, since the note REAL S will be 
closer to where S is used. 

2. The program will hog less computer memory, since S will use memory only when 
the compound statement is being executed. 

3. The program will be easier to expand, since your temporary S won't conflict with 
any other S you create later. 


SU BS: CRsPer ies 


BEGIN REAL ARRAY A[4:7_]; 


AL4 J:=1.3; 
AL5 J: =.1; 
AC6]:=.2; 
AC7J:=2.0; 


PRINT(AL4J+AL5J+AL6J+AL7]) ; 
END 
The top line says A[4], A[5], Af6J, and A[7] are real numbers. The computer will 
print the sum, 3.6. 
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Instead of saying AL[4:7], you can say A[L:H., and let L and H be input: 
BEGIN INTEGER L,H; 
WRITE("WHAT IS L?"); 
NEWLINE ; 
READ(L) ; 
WRITE("WHAT IS H?2"); 
NEWLINE; 
READ(H) ; 
BEGIN REAL ARRAY ALL:HJ; INTEGER I; 
WRITE("WHAT ARE THE VALUES OF A?"); 
NEWLINE ; 
FOR I:=L STEP 1 UNTIL H DO READ(A[I]); 
etc. 
END ; 
END 


ALGOL's ability to let you input a dimension is called dynamic storage allocation. 
On most computers, BASIC and FORTRAN don't allow you to input a dimension; the 
dimension must be a constant; the storage allocation is stattc. 


This statement says A will have two dimensions: 

REAL ARRAY AL4:7, -8:10J; 
The first subscript will range from 4 to 7. The second will range from -8 to 10. 
The first value of A will be AL4,-8]; the last will be A(C7,10. 


Here's how to read a table: 
BEGIN INTEGER R,C; 
WRITE("HOW MANY ROWS WILL THE TABLE HAVE?"); 
NEWLINE; 
READ(R) ; 
WRITE("HOW MANY COLUMNS?") ; 
NEWLINE; 
READ(C); 
BEGEN Swe REAL ARRAY ALIOR, 1: CJaeuNTEGER@ie J. 
WRITE("'WHAT ARE THE ENTRIES OF THE TABLE?"); 
FOR I:=1 STEP 1 UNTIL R DO 
FOR J:=1 STEP 1 UNTIL C DO-READ(ALI,J.); 
etc. 
END; 
END 


Instead of saying REAL ARRAY, you can say ARRAY. ‘The computer assumes the array 
is real, unless you specify otherwise. 


Instead of writing— 

INTEGER ARRAY AC1:503; INTEGER ARRAY Bf£1:50J; INTEGER ARRAY C[1:50J; 
you can write: 

INTEGER ARRAY A,B,C[1:50_; 
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IBM computers use different symbols: 


PDP-10 COMPUTERS IBM COMPUTERS 


USING ALGOL USING ALGOL W 
742 7**2 

AL4I A(4) 

AND AND 

OR OR 

X#4 X7=4 

4.386 BAS 
PRINT(X); WRITEON(X); 
WRETECY LOVE, Vs WRITEON(''LOVE"'); 
NEWLINE; WRITE(); 
READ(X); READON(X) ; 


IBM 


IBM COMPUTERS 

USING IBM ALGOL 

TREK? 

A(/4/) 

X1=4 

OREN 

OUTINTEGER(1,X); OM OUTREAL(1,X); 
OUTSTRING CL &) CLOVE em: 
BYSACT CI Laas 


ININTEGER(O0,X); oO INREAL(O,X); 


On IBM computers using IBM ALGOL, put apostrophes around all keywords: 
'no' 


“TNTEGER? 7"REAL" 
'ELSE' 'PROCEDURE' 


'BEGLN! nog BNDY 
The Seen 


GOTO" 
"ARRAY ' 


SPOR MOM SREP AO U UNTIL 


On IBM computers using ALGOL W, you can use these abbreviations: 


LINE 
WRITEON(X); WRITEON(Y); WRITEON(Z) ; 


WRLITEON(X); WRITEON(Y); WRITEON(Z); WRITE() ; 


Now you know ALGOL. 


Here's how to translate BASIC 


ABBREVIATION 
WRITEON(X,Y,Z) 3 
WRITECKX}¥sZ) 3 


For more details, read the Commentary. 


BASIC RINT x0" GINEUT & 
FORTRAN [PRINT *, X  JREAD *, X 
COBOL ESPLAY. % ACCER TX 

ALGOL RINT(X) READ(X) 

PL/I UL. LESTEXDHUGETS LESTEX) 
PASCAL RITE(X) READ(X) 

SNOBOL UTPUT = x). |X =sINPUE 

LISP (SETQ X (READ) ) 
APL x<D 


X=4.3 THEN 100 
CX EEO. uGDr aetOG 
x 


IF 
IF 
F 4.3 GO TO KATE 
F 
LE 
LF 


BASIC 
FORTRAN 
COBOL 
ALGOL I 
PL/I 
PASCAL 


X=4.3 THEN GO TO KATE 

X=4.3 THEN GO TO KATE 

X=4.3 THEN GO TO 100 
SNOBOL OUX Ay 3) 1 SCRATE 


LISP 


APL (x=4.3)/100 


(COND ((EQUAL X 4.3) (GO KATE)) not available 


X:=7.6%7.6*726 


X = 7.6 ** 3 CGAL) 
(SETQ X (BEPT 7.6 3)) |(GO GALL) 
X<+7 .6%3 a5 6) 


FOR I=5 TO'l7 

DO’ 10.123 557 

PERFORM SAM VARYING I FROM 5 BY 1 UNTIL I > 17 
FOR? T3=5 (STEPS: 1 CUNTIL) 17 DG 

DO L=5 410.07 

FOR 1225/10 17, DO 

not avatlable 


not avatlable 


COBOL 
ALGOL 
PL/I 
PASCAL 
SNOBOL 
LISP 
APL 


Here's how to make the computer add 2 and 2, and square ever 


BASIC 


FORTRAN 


COBOL 


ALGOL | 


PL/I 


PASCAL 


SNOBOL 


LISP 
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GO SUB 1000 
CALL JOE 
PERFORM JOE 


DEF FNA(X) 

FUNCTION FNA(X) 

not avatkable 

REAL PROCEDURE FNA(X) 

FNA: PROCEDURE(X) 

|FUNCTION FNA(X: REAL): REAL 
IDEFINE( 'FNA(X) ') 

(DEFINE (QUOTE ((FNA (LAMBDA (xX) 


X OCCURS 4 TIMES 
AL ARRAY X{1:4] 


ARRAY[1..4] OF REAL 
= ARRAY(4) 
(ARRAY LLX, (4). LIST). 


number from 1 to 13: 
PoTronkei=!"TO "13 
PRIN EtZ 


DO PLO. Pet 
J=l[**2 
PRINT *, J 
END 
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION. 
PROGRAM-ID. PROGRAM-ID. 
HARRY. HARRY. 


ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


OL N-PLG+9 4 O.1.+-J-PLC-.-99- 
PROCEDURE DIVISION. Ee. ue Line 
BEGIN. PROCEDURE DIVISION. 
ADD 2 2 GIVING N. BEGIN. 
DISPLAY N. PERFORM LOOP VARYING I 
STOP RUN. PRU Tk bY LEVON EEL Fie TS. 
STOP RUN. 
LOOP . 
COMP UTE-. do SHE Fe 2c 
DISPLAY J. 
BEGIN PRINT(2+2) BEGIN INTEGER 1; | 


FOR I:=1 STEP 1 UNTIL 13 DO PRINT(I+2) 


HARRY: PROCEDURE OPTIONS(MAIN) ; 
PUT LIST(2+2); 
END; 


PROCEDURE OPTIONS(MAIN); 
DO f=f-40 13* 
+2 Ala WO Be SG hey Be 


END; 
END; 
PROGRAM HARRY( OUTPUT) ; 


PROGRAM HARRY(OUTPUT) ; 


BEGIN WRITE(2+2) AR I: INTEGER; 
END. BEGIN FOR 1I:=1 TO 13 DO WRITE(I*1I1) 
OUTPUT = 2 + 2 dials 
END LOOP OUTPUT = I ** 2 
HVE Tt bol 3) cel 2 S{ LOOP) 
END 
CPEUS 2.2) (DEFINE (QUOTE ((HARRY (LAMBDA (1) (COND 
((ZEROP I) NIL) 
(T (APPEND (HARRY (SUB1 I)) (EXPT I 2))) 
Py? 
(HARRY 13) 
24+2 (1.13 ) #2 
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You already know four of those languages: BASIC, FORTRAN, COBOL, and ALGOL. 

L/I (pronounced "pee ell one") combines features from FORTRAN, COBOL, and ALGOL. 
ASCAL resembles ALGOL, but includes more kinds of. variables. 

SNOBOL (pronounced "snowball'") helps you look through strings to find patterns. 
ISP can build advanced concepts from simple ones, by using lasts of, ligtseotaiises. 

PL (pronounced "ay pee ell") is the best language for handling short lists of numbers. 


Five other languages are popular: 

PG resembles COBOL, but is simpler and less elaborate. 
SPSS computes averages, correlations, and other Statistics. 
PSS simulates (imitates) people waiting in line, and tells how long the average walt 18; 
PT lets you cut metal into fancy shapes, by making the computer control the tools. 

YNAMO imitates the world environment, the economy, and other gradually changing factors. 


Here are the most popular languages, in chronological order: 


NAME OF WHAT THE NAME ORIGINAL WHERE gga VERSION NAME OF 
LANGUAGE STANDS FOR se APPLICATION WAS INVENTED NEWEST VERSION 
- Automatically tool MIT, 1952-1956 ANSI Standard APT 
Programmed Tools control 


FORTRAN FORmula TRANslating sciences IBM, 1954-1957 FORTRAN 77 
ALGOrithmic Language sciences international, ALGOL W; Burroughs 
1957-1958 Extended ALGOL; ALGOL 68 
DYNAmic MOdels simulation MIT, 1959 DYNAMO III 
RPG Report Program business IBM, 1959 RPG II 
Generator 
LISt Processing artiticial MIT. 01959-1960 LUSh A l..6 
intelligence 
COmmon Business-— business Defense Dept., 
Oriented Language 1959-1960 
eas General-Purpose simulation IBM, 1961 GPSS V 
Systems Simulator 
SNOBOL StriNg-Oriented string Bell Telephone SNOBOL 4B 
symBOlic Language processing Labs, 1962 
BASIC Beginner's All- sciences Dartmouth: Caéliae Dartmouth SBASIC; 
purpose Symbolic 1963-1964 DEC BASIC=PLUS; Altair 
Instruction Code Disk Extended BASIC 
APL A Programming sciences Harvard & IBM, APLSV 


COBOL 74 


Language ‘ 1959-1966 

PL/I Programming Language general IBM, 1963-1966 PL/I Optimizer 
One | 

SPSS Statistical Package statistics Stanford Us, SPSS 2nd edition 
for the Social 1965>1967 


Sciences 
ASCAL PASCAL general Switzerland, Standard PASCAL 
1968-1970 


Let's examine those languages more closely.... 
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APT 


If you use APT, the computer will help you cut metal. Type an APT program that says 
how you want the metal cut. When you run the program, the computer will create a 


special instruction tape. Feed the instruction tape into a metal- cutting machine, 
and the machine will cut metal as you said. 


Let's write an APT program that makes the machine cut out the shaded area: 


We'll make the machine move the cutter where the circles are. 


Here's the program: 


CUTTER/1 Use a cutter whose diameter is 1". 
TOLER/.005 The tolerance of the cut is .005". 

FEDRAT/ 80 Use a feedrate of 80" per minute. 

HEAD/1 Use head 1. 

MODE/1 Operate the took in mode 1. 

SPINDL/2400 Turn the spindke on, at 2400 rpm. 
COOLNT/FLOOD Turn the coolant on, at food setting. 
PT1=POINT/4,5 PT] = the potnt whose coordinates are (4,5). 


FROM/(SETPT=POINT/1,1) SETPT = the point (1,1). Start the took from SETPT. 
INDIRP/(TIP=POINT/1,3) TIP = (1,3). Adm the took 4n the dinection of the point TIP. 
BASE=LINE/TIP, AT ANGL, 0 BASE = the Line that goes through TIP and slants 0 degrees. 
GOTO/BASE Make the took go to BASE. 
TL RCT.) GO RGT/BASE With the took on the right, go right akong BASE. 
GO FWD/(ELLIPS/CENTER, PTl, 3,2,0) Go forward akong the ellipse whose center 4s PTI, 
AQML-MAJON AXAS AS 3", SemL-minor axts 4b 2", 
and major axts slants 0 degrees. 
GO LFT/(LINE/2,4,1,3,), PAST, BASE Go Left akong the Line that joins (2,4) and (1,3), 
untik you get past BASE. 


GOTO/SETPT Make the took go to SETPT. 
COOLNT/OFF Turn the coolant off. 
SPINDL/OFF Turn the spindle off. 

END End use of the machine. 
FINI The program 4s ftntshed. 


Of all the computer languages used today, APT is the oldest. MIT began designing 
such a language in 1952. An experimental version was working in 1955. The language 
was named APT in 1956, and improved afterwards. 
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FORTRAN 


In 1954 an IBM committee said it was planning a language called FORTRAN. The plans 
resembled today's FORTRAN but did not allow long variable names, subroutines, long 
function definitions, double precision, complex numbers, or apostrophes. 


According to the plans, a variable's name had to be very short-—only two Letters. 
A function's definition had to fit on a single line. Instead of using apostrophes 
and writing 'PLEASE KISS ME', the programmer had to write 14HPLEASE KISS ME; the 
14H meant a 14-character string. 


The plans did not require a DO loop to be immediately under the DO statement. The 
loop could be elsewhere, and the DO statement would say where. 


There was no END statement. The programmer could warn the computer how frequently 
a variable would appear in the program, by saying FREQUENCY. Besides comparing 
numbers, the IF statement could say IF ACCUMULATOR OVERFLOW or IF QUOTIENT OVERFLOW. 


The first working version of FORTRAN (1957) allowed longer variable names—up to 

6 characters—-and put the. DO loop under the DO statement. FORTRAN II (1958) allowed 
subroutines and long function definitions, and put an END statement at the end of the 
program. IBM experimented with a FORTRAN III, but never released it to the public: 
FORTRAN IV (1962) allowed double precision and complex numbers, and abolished the 
statements about FREQUENCY and OVERFLOW. Apostrophes weren't allowed until later. 


The original plans said you'd be able to add an integer to a real. That didn't 
work in FORTRAN I, FORTRAN II, and FORTRAN IV, but it works today. 


The original plans said an IF statement would compare any two numbers. FORTRAN I 
and FORTRAN II required one of the numbers to be zero, but FORTRAN IV removed the 
restriction. 


Before FORTRAN was invented, programming was so difficult that only a few specialists 
could do it. IBM waged a campaign to convince everyone that FORTRAN was easier. 

IBM succeeded: people who knew little about computers wrote their own FORTRAN 
programs. | 


Other manufacturers imitated IBM's FORTRAN, but made some changes. In 1966, the 
American National Standards Institute (ANSI) created a single version of FORTRAN IV 
for all manufacturers. Now ANSI is completing an improvement, called ANSI Standard 
FORTRAN 77. (''ANSL" is pronounced "an see".) 


FORTRAN is the favorite language among scientists, because it allows four kinds of 
numbers (integers, reals, double precision, and complex), allows many formats for 
input and output, lets you decide which variables in the main routine relate to 
which variables in the subroutine, and lets the computer run loops more quickly than 
other languages. 


But FORTRAN is not perfect. IBM's first FORTRAN manual (1956) said, "FORTRAN is 
intended to be capable of expressing any problem of numerical computation. However, 
for problems that have a logical rather than a numerical meaning, FORTRAN is less 
satisfactory.'' In other words, FORTRAN handles numbers well, but handles string 
variables awkwardly. FORTRAN 77 is an improvement but still doesn't bring FORTRAN's 
string capabilities up to the level of BASIC, PL/I, and SNOBOL. 
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Jean Sammet, the woman who's the world expert on the history of computer languages, 
and whose books and papers analyze more than 200 languages, says, "Because FORTRAN 
was designed so early, better ways have been found to do almost everything that is 
currently in FORTRAN." In other words, FORTRAN is outdated. John Kemeny, who 
invented BASIC, says, "FORTRAN is as outdated as Latin.'' New languages, such as 
BASIC, ALGOL; and APL, aré easier to learn than FORTRAN. PL/I is more flexible. 
But scientists still use FORTRAN, because those newer languages have disadvantages 
that offset their advantages. 


ALGOL 


In 1955, the Gesellschaft fiir Angewandte Mathematik und Mechanik (German Association 
for Applied Mathematics and Mechanics) created a committee on programming, which 
later created a subcommittee that began inventing a computer language. The 
subcommittee decided the language should use English terms instead of German, since 
English was the international language for science. 


In 1957 the Germans invited Americans to join them. In 1958 other European countries 
joined also, and the international committee proposed a new language, called “IAL" 
(International Algebraic Language). Then the committee renamed the language 

PFATGOL’ 98") wrote a revision called “ALGOL'60"', wrote another revision, “called 

"ALGOL 60 (Revised)'', and then disbanded. Today when programmers mention "ALGOL", 
they usually mean the committee's last report, ALGOL 60 (Revised). 


ALGOL is more convenient than FORTRAN: 

1. ALGOL's variables can have long names. FORTRAN allows only 6 characters. ALGOL 
allows 64 on PDP-10 computers, and even more on others. 

Zo) Wreting 2rinstead of%2 70 ‘doesn’ t -aifeet "ALGO stanswer.. » InVALGOL, 1/2 gives 
the same answer as 1/2.0; 2+(-3) gives the same as 2.0+(-3); and SQRT(2) 
gives the same as SQRT(2.0). 

3. ALGOL's IF is flexible. It can contain ELSE, BEGIN, and END, and you can say 
Y:=N+(IF X<4 THEN 8 ELSE 9). 

4. ALGOL's FOR is flexible. ALGOL lets you say FOR X:=3.7, Y+6.2, SQRT(Z) STEP -.3 
UNTIL 5 DO. FORTRAN's DO is more restrictive; some versions of FORTRAN even 
insist that the DO statement must not contain reals, must not contain negatives, 
and must not contain arithmetic operations. 

5. ALGOL allows dynamic storage. FORTRAN allows DIMENSION X(20) but not X(N). 
ALGOL allows ARRAY X{1:N]. 


Europeans began using’ ALGOL more than FORTRAN. The American computer association 
(called the Association for Computing Machinery, ACM) said all programs in its 
magazine would be in ALGOL. 


But IBM didn't put ALGOL on its computers. Most American programmers used IBM 
computers and therefore couldn't use ALGOL. This created a ridiculous situation: 
programmers programmed in FORTRAN instead, but submitted ALGOL translations to the 
ACM's magazine, which published the ALGOL versions, which the magazine's readers 
had to translate back to FORTRAN in order to run them on IBM computers. 


IBM computers eventually swept over Europe, so that even Europeans had to use FORTRAN 
instead of ALGOL. 


Finally, the ACM gave in, and said it would publish programs in FORTRAN. But since 
ALGOL was prettier, everybody continued to submit ALGOL versions anyway. 
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IBM gave in too, and put ALGOL on its computers. But IBM's version of ALGOL is so 
limited and awkward that nobody takes it seriously, and even IBM itself has stopped 
supporting it. In 1972 Stanford University created ALGOL W, a better version that 
runs on IBM computers. But ALGOL W came too late: universities and businessmen 
had already committed themselves to FORTRAN. 


From that quickie history, you might think the downfall of ALGOL was IBM's fault. 
But there are other sides to the story. 


IBM had invested 25 man-years to develop the first version of FORTRAN. By the time 
the ALGOL committee finished the report on ALGOL 60 Revised, IBM had also developed 
FORTRAN II and FORTRAN III and made plans for FORTRAN IV. IBM was proud of its 
FORTRAN idea and wanted to elaborate it. 


Also, IBM realized that computers run FORTRAN programs more quickly than ALGOL. 


When asked why it didn't support ALGOL, IBM replied that the committee's description 
of ALGOL was incomplete. IBM was right: the ALGOL 60 Revised Report has three 


loopholes: 
1. The report doesn't say what words to use for input and output, because the 
committee couldn't agree. So computers differ. If you want to transfer an 


ALGOL program from one computer to another, you must change all the input 
and output instructions. 

2. The report uses symbols such as + and A, which aren't on-most terminals. The 
report underlines keywords; most terminals can't underline. Terminals must 
substitute other symbols for * and A and underlining. Here again, manufacturers 
differ. To transfer an ALGOL program to another manufacturer, you must change 
symbols. 

3. Some features of ALGOL are hard to teach to a computer. Even today, no computer 
understands all of ALGOL. When a manufacturer says its computer "understands 
ALGOL", you must ask, "Whtch features of ALGOL?'"' In the chapter on ALGOL, I 
explained just the features most computers have. But even if your program uses 
just those features, it will run more slowly than if it were written in FORTRAN. 


Two other ALGOL committees were formed later. One committee developed suggestions 
on how to do input and output, but the suggestions have been largely ignored. The 
other committee tried to invent a better ALGOL; the committee wrote its preliminary 
report in 1968 and revised it in 1975. Called "ALGOL 68 (Revised)", the report is 
weird: it even requires you to spell words backwards (IF becomes FI, and DO becomes 
OD). The committee's decision was far from unanimous, and several members refuse to 
endorse the report. ALGOL 68 will probably be used even less than ALGOL 60 Revised. 


ALGOL led to BASIC, PL/I, and PASCAL. Those new languages incorporate ALGOL's good 
features and avoid its deficiencies. 


DYNAMNO 


DYNAMO uses these symbols: 
SYMBOL MEANING 


at a moment ago 

.K now 

JK during the past moment 
.KL during the next moment 
DT how long "a moment' is 


For example, suppose you want to explain to the 

birth rate and death rate. If you let P be the 

and DR be the death rate, here's what to say in 
P.K=P.J+DT*(BR.JK-DR. JK) 

The equation says: Population now = Population 

(Birth Rate during the past moment - Death Rate 
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computer how population depends on 
population, BR be the birth rate, 
DYNAMO: 


before + how long "a moment" is 
during the past moment). 


The most famous DYNAMO- program is the "World Dynamics Model", which Jay Forrester 


programmed at MIT in 1970. 
about our world. 
* WORLD DYNAMICS 
P.K=P.J+DT*(BR.JK-DR. JK) 
reed. 

PI=1.65E9 


Ces 
The first line gives the program's title. 
in terms of Birth Rate and Death Rate. 


ee ENTE OO ee re SRC XE EH 


His [program nas tli/ equations that describe 112 variables 
Here's how the program begins: 


; ] 


The next line defines the Level of Population, 
The second equation defines the iNitial 


Population to be PI (Population Initial); the next equation defines the Constant PI 


to be 1.65E9, because the world's population was 1.65 billion in 1900. 


The next 


equation says the Rate BR.KL (the Birth Rate during the next moment) is determined 


by the Population now and several other factors 
Multiplier), the BRMM (Birth-Rate-from-Material 


Crowding Multiplier), and the BRPM (Birth-Rate-from-Pollution Multiplier). 


those factors is defined in later equations. 


When you run the program, 


, such as the BRFM (Birth-Rate-from-Food 


Multiplier), the BRCM (Birth=Rate-from- 
Hach ot 
the computer 


automatically solves all the equations simultaneously and draws graphs that show how 


the population, birth rate, etc. will change during this century and the next. 


are some of Hhe results: 


Here 
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NATURAL RESOURCES 


food per person} 


QUALITY OF LIFE 


POPULATION 


material standard of living 


Capital investment 
POLLUTION 
1900 1920 1940 1960 1980 2000 2020 2040 2060 
YEAR 
The graph shows the quality of life will decrease because of overpopulation, 
pollution, and dwindling natural resources. Although the material standard of 
living will improve for a while, it too will eventually decrease, as will 
industrialization (capital investment). 


2080 2100 


Dwindling natural resources are the main problem. Suppose that problem is suddenly 
solved, by a new discovery that lets us reduce our usage of natural resources by 


Ww 


75%. Will our lives be better? Here's what the computer predicts, if the ‘new 


discovery" is made in 1970: 


NATURAL RESOURCES i 
uA 
—— | 


QUALITY OF LIFE 


POPULATION WA 


food per person —— ae A i 
| 


material standard of living | 
capital investment ee ret ee 


POLLUTION ~*~: — 


1900 1920 1940 1960 1980 2000 2020 2040 2060 2080 2100 


YEAR 
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The graph of natural resources changes sharply in 1970, because of the "new discovery." 
As a result, people live well, so that in 2030 the population is almost 4 times what 

it was in 1970. But the large population generates a lot of pollution; in 2030, the 
pollution is being created faster than it can dissipate. From 2040 to 2060, a pollution 
crisis occurs: the pollution increases until it is 40 times as great as in 1970; most 
of mankind consequently dies, so that the population in 2060 is a sixth of what it 

was in 2040. After the crisis, the few survivors create little pollution and enjoy 

a very high quality of life. 


Forrester tried other experiments on the computer. He tried birth control, pollution 
reduction, and other techniques. Each of them backfired. The graphs showed that the 
only way to maintain a high quality of life throughout the next century is to adopt 

a combinatton strategy now: 

reduce natural resource usage by 752 

reduce pollution generation by 504 

reduce the birth rate by 30% 

reduce capital-investment generation by 40% 

reduce food production by 20% 


DYNAMO has been applied to other problems too. It was originally designed to help 
you manage a company. Plug your policies about buying, selling, hiring, and firing 
into the program's equations; when you run the program, the computer will draw a 
graph showing what will happen to your company during the next few months and years. 
If you don't like what you see, change your policies, put the new policies into the 
equations, and see whether the graphs are more optimistic. 


Here's a quick history of DYNAMO.... 


At MIT in 1958, Richard Bennett invented a language called ''SIMPLE", which stands 

for "Simulation of Industrial Management Problems with Lots of Equations". In 1959, 
Phyllis Fox and Alexander Pugh III invented the first version of DYNAMO, by improving 
on SIMPLE. In 1961, Jay Forrester wrote a book called Industrial Dynamics, which 
explained how DYNAMO can help you manage’a company. 


MIT is near Boston, whose mayor from 1960 to 1967 was John Collins. When he stepped 
down, he became a visiting professor at MIT. His office happened to be next to 
Forrester's. He asked Forrester whether DYNAMO could solve the problems of managing 

a city. Forrester organized a conference of urban experts and got them to turn 

urban problems into 330 DYNAMO equations involving 310 variables. Forrester ran 

the program and made the computer graph the consequences. The results were surprising. 


The graphs showed that if you try to help the underemployed, by giving them low-cost 
housing, job-training programs, and artificially-created jobs, the city becomes 
better for the underemployed, so more underemployed people move to the city, so the 
percentage of the city that is underemployed increases, and the city is worse off 
than before the reforms were begun. In other words, socialist reform just backfires. 
Another example: free public transportation creates more traffic, because it 
encourages people to live farther from their jobs. 


Instead, the graphs show that the only long-term solution to the city's problems 

is to knock down slums, fund new "labor-intensive export" businesses (businesses that 
will hire many workers, occupy little land, and produce goods that can be sold 

outside the city), and let the underemployed fend for themselves in this new 
environment. Another surprise: any city-funded housing program makes matters worse— 
regardless of whether the housing is for the underemployed, the workers, or the 
rich—because additional housing means less space for industry and hence fewer jobs. 


a2 


If you ever become a mayor or President, use the computer's recommendations cautiously: 
they'll improve the cities, but only by driving the underemployed out to the suburbs, 


which will worsen. 


In 1970 Forrester programmed the World Dynamic Model, to help "The Club of Rome", a 
private club of 75 people who are trying to help the world avoid ecological calamity. 


RPG 


RPG is the most popular language for small IBM computers, such as the IBM System/3 
and the IBM System/32. 


Suppose you have a file, called MANHOURS, stored on punched cards. There's one card 
for each employee: 


4441 |CHESTER,O.P. 040 


12 3 45 6 7 @ 9 WW 12 13 1S 16 17 WW TS 20 21 22 23 24 25 26 27 26 29 30 31 32 


54 55 56 57 SO S® GO GI 62 63 64 


39976BUGLE,1.M. 041 


123 45 6 7 & OW it 12 13 4 TS 6 17 BW 20 21 22 23 26 25 26 27 26-29 30 1 32 


06 87 G8 89 90 91 92 93 94 95 96 


S4 5S S56 57 SB S89 6O 6! G2 63 64 


21450AZUR,M.P. 102 


1234 5 6 7 6 9 W WH 12 13 4 1S 6 17-1 1 20 21 22 23 24 25 26 27 28 29:30 31 32 


8 NO 120 12) 2 123 124 125 126 127 128 


@6 87 GS 89 90 Bi 92 93 94 95 96 


$4 SS 56 57 SB SO GO GI 62 63 64 


20331 ARMSTRONG,J.D. 045 


123 45 6 7 © 9 WH 12 13 4 1S 16 17 1 19 20 21 22 23 24 25 26 27 26 29 30 31 


MS MD 20 121 2 123 124 125 126 127 we 


86 87 G8 89 90 91 92 83 B84 95 96 22 23 24 25 26 27 26 29 30 31 32 


33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 SO SI 52 53 S4 SS SE 57 S68 SD 6O 61 62 63 64 


M8 MG ZO 121 2 123 124 125 126 127 128 


G2 63 G4 OS 86 87 88 89 90 91 92 93 94 95 96 22 23 24 25 26 27 28 29 30 31 32 


65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 60 81 
54 55 S6 57 58 59 60 61 62 63 64 


“-NSOPOT-“NAOPOW-NS OPO 


97 98 99 100 101 102 103 104 105 106 107 108 109 NO Ih NZ M3 M4 NS 16 17 MB Md 120 Iz W2 123 124 125 126 127 128 
eee @eee 8800806 
e e ee ee eee e 22 23 24 25 26 27 28 29 wy 31 32 
6 e e e e 
e ecce e ee 54 55 56 57 5@ 59 60-61 62 63 64 
e ee ee e ee e e 186 G7 BB B9 90 91 92 93 94 95 96 
eeeee ee eeeeoe 8 e 
123 45 6 7 8 9 WO MH 12 13 14 15 BW 17 W IB 20 2 22 23 24 25 WW 27 26 29 30 HN 32 


55 56 57 S68 59 6O 61 62 63 64 


“NS OPT-NAOQPO-N4OPTD 


86 87 G8 88 90 91 92 93 94 95 96 


33 34 35 36 37 30 39 40 4) 42 43 44 45 @6 47 48 49 SO Si S52 53 34 SS 56 57 SO SO GO 61 62 63 64 


"“-NSOPT-NSEQPO-N45 070 


87 G8 69 90 91 92 93 94 95 96 


-NShOPT-NSOPT-N4 OPO 
“NSOPT-N5QORPT-N45O0PR 


6S 6 67 68 69 70 71 72 73 74 7S 76 77 76 79 GO 81 B2 63 G4 GS B6 67 BB BS 90 91 92 93 94 95 96 


18m 3700 


On each card, columns 1-5 contain the employee's identification number; columns 6-20 
contain his name; and columns 21-23 tell how many hours he worked. Let's write an 
RPG program that makes an IBM System/3 computer print the file on the line printer, 
with extra spacing, and also print the total number of man-hours in the company, 
like this: 


ARMSTRONG, J.D. 
AZUR, MeP. 
BUGLE, I.M. 


CHESTER, OP. 
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To write the program fill out four forms. The first form describes the controls 
and files, like COBOL's environment division. Here's the form, filled out correctly: 


IBM International Business Machines Corporation iba 21-9092 
‘inted in U.S.A, 
RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 
75 76 77 78 79 80 
Date Program 
Identification 
Program 


Programmer 


Control Card Specifications 


Refer to the specific System Reference Library manual for actual entries. 


Input--Shillings 
Input--Pence 
Output--Shillings 
Inverted Print 
360/20 2501 Buffer 


MFCM Stacking Sequence 
Tame Collating Sequence 


~ 


37 38 39 40 41 42 43 44 45 46 47 48 65 66 67 68 69 70 71 72 73 74) 


ot] Moots! 1 idgiel TTT TTT TIL I titi LL tii littl iii 


File Description Specifications 


Mode of Processing File Addition 
5 7 i Length of Key Field or Number of Tracks 
File Designation of Record Address Field for Cylinder Overflow 
Record Address Type Number of Extents 


Sequence \/D/T or 1-9 


Symbolic Name of Extent Exit 
(Additional Area) 


Device Label Exit tor DAM 


Filename 


Overflow Indicator 
Block Record EA Field 
Length Length Starting 


EA ion 


a Code E/L 


@ Labels (S, N, or E) 


8 9 10 11 12 13 14 


< < 2 
21 30] 31]3 0 41 42 43 44 45 46/47 48 49 50 51 52|53]54 55 56 57 58 59]60 61 62 63 64 65}66}67/68 69} 70/71 72173 74 
TABARGGee HALE He T +f coe 
SHH PELE HE ELT EE 


canaadits 


Line 01 says "008 008". That makes Hi computer reserve 8 kilobytes of memory for 
the program. Line 02 describes the file MANHOURS; the "IP'' means the file is for 
Input and is the Primary file; the ''96'' means each card in the file has 96 columns; 
the "MFCU1" means card reader #1. Line 03 says "ADDLIST" will be the name of the 
Output file, which has 96 columns and will appear on the PRINTER. 


The second form describes the input: 


Internetions! Business Machines Corporation Form X21-9004 
Printed in U.S.A. 


RPG INPUT SPECIFICATIONS 75 76 77 78 79 80 


Program 
identification 


Pius | Minug Zero 


Control Level (L1-L9) 
Field Record Relation 


é 
2 
= 
8 
& 
. 
£ 
8 
a 


Matching Fields or 
Chaining Fields 


The form says the file MANHOURS is unorganized ("AA"); reading a card from the file 
is called "activity #01"; on each card, columns 1-5 contain MANNO; columns 6-20 
contain NAME, and columns 21-23 contain HRS, a number which has 0 digits after the 
decimal point. 
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The third form describes the calculations: 


IB Internstionel Business Machines Corporation Mabel am 


RPG CALCULATION SPECIFICATIONS 
tee 75 76 77 78 79 80 


; Program 
Dar i 
i 2 Punching Graphic Page (D3 | Identification 
High | Low ae 


Instruction Punch 
3 
3 4 51647 8} 9)10/11 ee eae 33 34 35 36 37 bial | 53)54 55|56 57/58 5 66 67 68 69 70 71 72 73 74 


ethtare GWUREREE a re AHH pe aa i A PEE HEELEEE 
2 UNDE AUURUUUERLEGARUEEED AE cite 
aig nee 


The form says: after each occurrence of hates #01, let HRS + TOTAL be the new 
TOTAL, which is a 5-digit number having 0 digits after the decimal point. 


Factor 1 Operation Result Field Compare Comments 


Lookup 
Table (Factor 2) is 


Decimal Positions 
Half Adjust (H) 
~ = 
Xs 
Ao 
me 


Form Type 
Control Level 
(LO-L9, LR, SR) 


The fourth form describes the output: 


International Business Machines Corporation Form X21-9090 
IBM Printed in U.S.A, 


OUTPUT - FORMAT SPECIFICATIONS tes pr 


Date Cowen 
a Graphic 
racy | Sh e! e wornenn_| | | TU 
erageee Instruction Punch 


Programmer 


Edit Codes 


Commas | Zero Balances | No EEA Remove ‘ 
to Print Plus Sign Sterling 


Sign 
Yes 1 Date e 
re Field Edit Fosition 
Yes 3 Zero 
No 4 


Constant or Edit Word 


Filename Field Name End 
Position 
in 
Output 
Record 


Packed Field (P) 


& 
> 
e 
E 
5 
“ 


Edit Codes 


19 20}21 22}23 


The form explains how to print the file ADDLIST. In line 01, the "D" means "here's 


how to print each line of Details"; the "10 01" means "press the carriage return 
1 time before you print the line, press it 0 times after you print the line, and do 
the printing after each occurrence of activity #01". Line 02 says to print MANNO 


so it ends in column 5. Line 03 says to print NAME so it ends in column 23; since 
the second form said NAME requires 15 columns, the computer will print NAME in 
columns 9-23. Line 04 says to print HRS so it ends in column 29; since the second 
form said HRS requires 3 columns, the computer will print HRS in columns 27-29. 

In line 05, the "T' means "here's how to print the Total"; the "30" means "press 

the carriage return 3 times before you print the line, and 0 times after"; the "LR" 
means "print it only after the last card has been read (Last Record)". Line 06 says 
to print TOTAL so it ends in column 29; since the third form said TOTAL requires 5 
columns, the computer will print TOTAL in columns 25-29. 


{> GES? 


After you've filled out the four forms in longhand, type what you wrote. Here's 
the RPG program: 
0101 HOO8 008 


0102 FMANHOURSIP 96 MFCUL hrom the first form 
0103 FADDLIST O 96 PRINTER 
0201 IMANHOURSAA O01 _ 
0207 2 1 5 MANNO \. 
fom the second form 
0203 I 6 20 NAME | 
0204 I 217 230HRS 3 
DSC LeO tc 0 I HRS ADD TOTAL TOTAL "50 ftom the third form 
0401 OADDLIST D 10 01 ; 
0402 O MANNO 5 
0 
Wa is Bas 2 brom the fourth form 
0405 O T 30 LR 
~ 0406 O TOTAL 29 J 


To do that in FORTRAN or COBOL, you'd have to write a loop; you'd have to say GO TO, 
DO, or PERFORM. RPG makes the computer do loops automatically; you don't have to 
say so. The order in which you write statements is less important in RPG than in 
other languages; you're less likely to err; RPG is more reliable. 


iY es 


There are two versions of LISP. I'1l begin by explaining the new version, which 
is called LISP. 1:6 or EVAL LISP. For informatron about ‘the.old confusing version, 
called LISP 1.5 or EVALQUOTE LISP; see the end of this section: 


To write a simple LISP program, use just letters, digits, spaces, and parentheses. 
Do not use special symbols such as: 

ote ae ee, 

Here's how LISP avoids those symbols: 

BASIC LPSP 


S420 "i (PLUS HS a2) 

5-2 (DIFFERENCE 5 2) 
5*2 (TIMES 5 2) 

5/2 (QUOTIENT 5 2) 
542 (EXPT 52) 


PLOVE. (QUOTE LOVE) 


For example, if you want the computer to add 5 and 2, type this: 

CPLUS i5: 2) 

When you press the carriage return at the end of that line, the computer will print 
the answer: .(You don't have to say PRINT or RUN or any other special word.) The 
computer will print: 


VAGUE ISe. 3 
vs 
lf yourtype— 


(PRUS*hthaded) 

fhescospurcer well, addr il pyseelecand 1 and ‘print: 
VATANEOLS > 2; 

6 


Lis you: type 
(DIFFERENCE 7 (TIMES 2 3)) 
the computer will find the difference between 7 and 2*3 and print: 


VALUE IS}. 
4 
Li you. type 


(QUOTE LOVE) 

the computer will print: 
VaUUEots ss: 

LOVE 


A string must be a single item: 
ALLOWED NOT ALLOWED 
(QUOTE LOVE) (QUOTE LOVE DEATH) 


Warning: if you're using Stanford University's LISP 1.6 on a PDP-10 computer, the 
computer will surprise you. For example, if you think an answer should be thirty-seven, 
the computer will print 45 instead. That's because the computer thinks in base eight: 
its '45" means "4 eights plus 5'', which is thirty-seven. 


LISP can handle lists. Each list must begin and end with a parenthesis. Here's a 
list of numbers: 

C5 7st 

Here's a list of words: 

(LOVE HATE WAR PEACE DEATH) 


Here's a list of numbers and words: 
(2 WOMEN KISS 7 MEN) 
That list has five items: 2, WOMEN, KISS, 7, and MEN. 


Here's a list of four items: 
(HARRY LEMON (TICKLE MY TUBA TOMORROW AT TEN) RUSSIA) 
The first item is HARRY; the second is LEMON; the third is a list; the fourth is RUSSIA. 


In a list, the first item is called the CAR, and the remainder of the lisittis caflited 
the CDR (pronounced "could-er" or ''cudder'' or "cooder"). For example, the CAR of 
(LOVE HATE WAR PEACE DEATH) is LOVE, and the CRD is (HATE WAR PEACE DEATH). 


CONS is the opposite of CAR and CDR. For example, the CONS of LOVE with 
(HATE WAR PEACE DEATH) is (LOVE HATE WAR PEACE DEATH). 


To make the computer find the CAR of (SAILORS DRINK WHISKEY), type. this: 
(CAR (QUOTE (SAILORS DRINK WHISKEY) ) ) 

The computer will print: 

VALUE LS”. s. 

SAILORS 


If you type— 

(CDR (QUOTE (SAILORS DRINK WHISKEY) )) 
the computer will print: 

VALUE“IS* 

(DRINK WHISKEY) 


If you, type-— 
(CONS (QUOTE SAILORS) (QUOTE (DRINK WHISKEY) ) ) 


the computer will find the CONS of SAILORS with (DRINK WHISKEY) and will print: 
VALUE” 45, °. 


(SAILORS DRINK WHISKEY) 
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If you type— 

(CAR (CDR (QUOTE (SAILORS DRINK WHISKEY) ) )) 

the computer will find the CAR of the CDR of (SAILORS DRINK WHISKEY). Since the 
CDR of (SAILORS DRINK WHISKEY) is (DRINK WHISKEY), whose CAR is DRINK, the computer 
will print: 

VALUES . 1; 

DRINK 


You can define your own functions. For example, you can define (DOUBLE X) to be 2%x, 
and (TRIPLE X) to be 3*X, by typing this: 
(DEFINE (QUOTE ( 
(DOUBLE (LAMBDA (X) (TIMES 2 X)) 
(TRIPLE (LAMBDA (X) (TIMES 3 X)) 
))) 
The first line says you're going to define functions. The next line defines (DOUBLE X) 
to be (TIMES 2 X). The next line defines (TRIPLE X) to be (TIMES 3 X). The next line 
closes the parentheses that the top line opened. When you've typed those four lines, 
the computer will print: 
VALUE IS... 
(DOUBLE TRIPLE) 
Then if you type— 
(DOUBLE 4) 
the computer will print: 
VALUE IS... 
8 
If you type— 
(TRIPLE 5) 
the computer will print: 
VALUE IS... 
L5 


REPEAT Let's define REPEAT to be a function, so that (REPEAT (QUOTE LOVE) 5) is 
(LOVE LOVE LOVE LOVE LOVE), and (REPEAT (QUOTE KISS) 3) is (KISS KISS KISS), and 
(REPEAT (QUOTE KISS) 0) is (). 


If N is 0, (REPEAT X N) is (). 


If N is larger than 0, (REPEAT X N) is a list of N X's. That's X followed by N-l 
more X's. That's the CONS of X with a list of N-l more X's. That's the CONS of 
X with (REPEAT X (DIFFERENCE N 1)). That's (CONS X (REPEAT X (DIFFERENCE N 1))). 
That's (CONS X (REPEAT X (SUB1 N))), since (SUB1 N) means N-1 in LISP. 


So you can define the value of (REPEAT X N) as follows: if N is 0, the value is (); 
if N is not, the value is (CONS X (REPEAT X (SUB1 N))). Here's what to type: 
(DEFINE (QUOTE ( 
(REPEAT (LAMBDA (X N) (COND 
((ZERO P N) ()) 
(T (CONS X (REPEAT X (SUB1 N)))) 
7) 
))) 
The top line says you're going to define a function. The next line says REPEAT is 
a function of X and N, and the value depends on CONDitibns. The next line gives 
one of the conditions: tf W ts ZERO, the value is (). The next line says: 
otherwise, the value is (CONS X (REPEAT X (SUB1 N))). The next line closes the 
parentheses opened in the second line. The next line closes the parentheses opened 
in the top line. The computer will print: 
VALUE 187."2", 
(REPEAT) 
Then if you type— 
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(REPEAT (QUOTE LOVE) 5) 
the computer will print: 
(LOVE LOVE LOVE LOVE LOVE) 


The definition is almost circular. In other words, the definition of REPEAT assumes 
you already know what REPEAT is. 


For example, (REPEAT (QUOTE KISS) 3) is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 2). But to understand that definition, you must 
understand (REPEAT (QUOTE KISS) 2), which is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 1). But to understand that definition, you must 
understand (REPEAT (QUOTE KISS) 1), which is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 0). But to understand that definition also, you must 
understand (REPEAT (QUOTE KISS) 0), which is defined as (). 


A definition that is almost circular is called Yecursive... You ean say, . The 
definition of REPEAT is recursive", or "REPEAT is defined recursively", or 

"REPEAT is defined by recursion", or "REPEAT is defined by induction", or "REPEAT 
is a recursive function". You can write recursive definitions in LISP, ALGOL, and 


several other languages (such as PL/I and SNOBOL), but not in BASIC or FORTRAN. 


When the computer uses a recursive definition, the computer refers to the definition 
repeatedly before getting out of the circle. Since the computer repeats, Lt 28 
performing a loop. In BASIC and FORTRAN, the only way to make the computer perform 
a loop is to say GO TO or FOR or DO. Although LISP contains a go-to command, LISP 
programmers avoid it, and write recursive definitions instead. 


ITEM As another example of recursion, let's define the function ITEM so that 
(ITEM N X) is the Nth item in list X. Thus (ITEM 4 (QUOTE (LOVE HATE WAR PEACE DEATH) )) 
should be the 4th item of (LOVE HATE WAR PEACE DEATH), which is PEACE. 


If N is 1, (ITEM N X) is the first item in X, which is the CAR of X, which is (CAR X). 


If N is larger than 1, (ITEM N X) is the Nth item in X. That's the (N-1)th item in 
the CDR of X. That's (ITEM (SUB1 N) (CDR X)). 


So define the value of (ITEM N X) as follows: if N is 1, the value is (CAR X); if 
N is not, the value is (ITEM (SUB1 N) (CDR X)). Here's what to type: 
(DEFINE (QUOTE ( 
(ITEM (LAMBDA (N X) (COND 
((ONEP N) (CAR X)) 
(T (ITEM (SUB1 N) (CDR X))) 
))) 
) ay) 
If your computer doesn't understand (ONEP N), say (EQUAL 1 N) instead. 


aS oa PRES Now you know how to write a command in LISP 1.6 (or EVAL LISP). To 

write the command in LISP 1.5 (or EVALQUOTE LISP), make two changes: +0 

1. Begin the command with a word, instead of a parenthesis. For example, instead 
of saying (PLUS 2°2),“say PLUS (2 2). Instead of saying. (DIFFERENCE Jo CLIMES 2 30g0 
say DIFFERENCE (7 (TIMES 2 3)). 

2. Omit the word QUOTE and its parentheses, unless the QUOTE is in a command that's 
in a command. For example, instead of CAR ((QUOTE (SAILORS DRINK WHISKEY))), say 
just CAR ((SAILORS DRINK WHISKEY)). But in CAR ((CDR (QUOTE (SAILORS DRINK 
WHISKEY)))), you must keep the QUOTE, because it is in the command CDR which is 
in the command CAR. 
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Write a function definition in LISP 1.5 the same as in LISP 1.6, except for the 
top and bottom lines: 
TOP AND BOTTOM LINES IN LISP 1.6 TOP. AND» BOTTOM .LINES .IN LISP.:1.5 


(DEFINE (QUOTE ( DEFINE (( 
))) >) 


Leave the middle lines unchanged. 


IMPORTANCE LISP has three advantages over FORTRAN and BASIC: 

1. LISP allows recursive definitions. FORTRAN and BASIC do not. 

2. LISP lets you handle lists flexibly: you can make a list so some of its items 
are strings, some items are numbers, and some items are themselves lists of 
varying lengths—short lists, long lists,) and lists,of lists (of lists of lists of 
izecs...)) Wour program can ‘change: thevlist s structure: ‘you can make’ the list 
longer, then shorter, then replace one of its items by a list of other items, etc. 
FORTRAN and BASIC permit only list structures that are simple, described in the 
DIMENSION statement and never changed. 

3. LISP makes the computer periodically delete from its memory all the variables 
you are no longer using, and use that memory to hold new variables instead. That 
activity is called garbage collection. LISP makes the computer do it automatically, 
without the programmer having to say so. To collect garbage in BASIC and FORTRAN, 
you'd have to explain to the computer exactly how and when, by writing a 
garbage-collecting subroutine, which is difficult. 

For those reasons, LISP is the most popular language among researchers in artificial 

intelligence, who try to make the computer win checkers and chess, prove theorems, 

understand English, and control a robot's muscles, sense organs, and thinking. 


There are many variations of LISP. QLISP, PLANNER, and CONNIVER contain extra 
features that make the computer prove theorems. For example, suppose you want to 
solve this problem, by using PLANNER: 
ixon is human. 
Socrates is human. 
Socrates is Greek. 
All humans are fallible. 
Is there a fallible Greek? 
Type this: 
(HUMAN NIXON) 
(HUMAN SOCRATES) 
(GREEK SOCRATES) 
(THCONSE (X) (FALLIBLE $?X) (THGOAL (HUMAN $?X))) 
(THPROG (X) 
(THGOAL (FALLIBLE $?X) (THTBF THTRUE)) 
(THGOAL (GREEK $?X)) 


The computer will print SOCRATES. 


LISP requires ridiculously many parentheses and uses awkward symbolism, such as 
QUOTE, LAMBDA, and COND. To remedy those flaws, several improvements have been 
invented: MLISP2 (which will be expanded to form LISP70) and TREET combine LISP's 
power with ALGOL's simplicity. LOGO combines elements from LISP and BASIC, and adds 
extra features so you can produce art and music and control robots that look like 
turtles. 
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COBOL 


From 1954 to 1958, Sperry Rand Corp. (which makes UNIVAC computers) developed a 
language called FLOW-MATIC, to solve problems in business. In 1958, the Air Force 
developed a variation called AIMACO. From 1957 to 1959, IBM developed a competing 
language, called COMMERCIAL TRANSLATOR. From 1959 to 1960, Honeywell Corp. developed 
another competing language, called FACT. 


In April 1959, a group of programmers and manufacturers met at the University of 
Pennsylvania and decided it would be better to have a stngle business-oriented 
language for all computers. The group arranged for a larger group to meet at the 
Pentagon in May. At the May meeting, the large group created a committee that 
later created a subcommittee that created COBOL. 


From FLOW-MATIC, COBOL borrowed the idea of beginning each statement with an English 
verb, and separating the data descriptions from the procedures. From COMMERCIAL 
TRANSLATOR, COBOL borrowed group items (01 and 02), PICTURE symbols, fancy IF THEN, 
and COMPUTE formulas. 


In 1960, the Department of Defense announced it would by only computers that understand 
COBOL, unless a manufacturer can demonstrate why COBOL would not be helpful. In L961, 
Westinghous Electric Corp. made a similar announcement. Other companies followed. 
COBOL became the most popular computer language. 


COBOL 60 was improved, to form COBOL 61. A "Report Writer'' feature and the verb 
SORT were introduced in 1962. Then came COBOL 65, COBOL 68, and COBOL 74. 


Most large computers still use COBOL 68. To write business programs on a minicomputer, 
you have to use a small part of COBOL 74, or. BASIC, or FORTRAN, or RPG (on IBM 
computers), or DIBOL (on PDP computers), or DATABUS (on Datapoint computers). No 
computer understands full COBOL 74 yet. 


COBOL has some little flaws. For example, COBOL says the data division's FD 

should contain information about labeling. But labeling describes the environment, 

not the data, and therefore should go in the environment division instead. The 

head of the subcommittee that invented COBOL—Jean Sammet——admits her subcommittee 
made a mistake about where to put the labeling. But it's too late to change COBOL now. 


COBOL remains the most popular language for large computers, in spite of IBM's 
attempt to replace it by PL/I. On minicomputers and microcomputers, the most 
popular language is BASIC. 


GPSS 


A queue is a line of people who are waiting. GPSS analyzes queues. 


For example, let's use GPSS to analyze the customers in "Quickie Joe's Barbershop". 
Joe is the only barber in the shop, and he spends exactly 7 minutes on each haircut. 
(That's why he's called "Quickie Joe''.) About once every 10 minutes, a new customer 
enters the barbershop; more precisely, the number of minutes before another 

customer enters is a random number between 5 and 15. Let's make the computer imitate 


the barbershop, and summarize what happens to the first 100 customers. 


81 COBOL 


& GPSS 

Here's the program: 

SIMULATE 

GENERATE 10,5 A new customer comes every 10 minutes + 5 minutes. 

QUEUE JOEQ He watts in the queue, called JOEQ. 

SEIZE JOE When his turin comes, he seizes JOE, 

DEPART JOEQ which means he Leaves the JOEQ. 

ADVANCE 7 After 7 minutes go by, 

RELEASE JOE he neleases JOE (40 someone else can use JOE) 

TERMINATE 1 and Leaves the shop. 

START 100 Do akk that 100 times. 

END 

“3 a 

8th 19th 

cokumn cokwmn 
When you run the program, the computer will print many numbers. For example, it 
-will tell you that Joe was working 68.5% of the time (the rest of the time, his 

shop was empty and he was waiting for customers). There was never more than 1 
customer waiting. ''On the average", .04 customers were waiting. There were 
101 customers (the 10lst customer stops the experiment); 79 of them (78.2% of them) 
obtained Joe immediately and didn't have to wait. The "average customer" had to 
wait in line .405 minutes. The "average not-immediately-served customer" had to wait 
in line 1.863 minutes. 
Below the RELEASE statement and above the TERMINATE statement, you can insert two 
exXPGoaystauemnents. 

TABULATE 1 

1 TABLE M1,0,1,26 

rh 
column 
They make the computer print even more information. The computer will say that of 
the 100 serious customers, the "average customer" spent 7.369 minutes in the shop 
(from when he walked in to when he walked out). More precisely, 79 customers spent 
7 minutes each; 9 customers spent 8 minutes each; 9 customers spent 9 minutes each; 
2 customers spent 10 minutes each; and 1 customer had to spend 11 minutes. The 
computer also prints the "standard deviation", ''cumulative tables'', and other 


Statistical iclaptrap. 


On your own computer, the numbers might be slightly different, depending on how the 
random numbers came out. To have more faith in the computer's averages, try 1000 
customers instead of 100. 


For most problems about queues, GPSS is the easiest language to use. But if your 
problem is very complicated, you might have to use SIMSCRIPT (based on FORTRAN) or 
SIMULA (an elaboration of ALGOL) or SIMPL/I (an elaboration of PL/I). 
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SNOBOL 

Here's a SNOBOL program: 

A = 2 

B =A + lO, 6 

C = "BODY TEMPERATURE IS 9" B 

OUT PUL sae Bitr is, ois 
END 
Indent each line except END. Indent at least one space; you can indent more spaces 
if you wish. Put spaces around the symbol =, the symbol +, and other operations. 


The first line says A is the integer -2. The next line says B is the real number 8.6. 
The next line says C is the string "BODY TEMPERATURE IS 98.6". The next line makes 
the computer print: 

MY BODY TEMPERATURE IS 98.6 


In SNOBOL, a variable's name can be short (like A or B or C) or very long (as long 
as you wish). For long names, SNOBOL uses periods instead of hyphens: 

COBOL SNOBOL 

NUMBER-OF-BULLIES-I-SQUIRTED NUMBER.OF.BULLIES.1.SQUIRTED 


LOOP OULPUT =. CALS 
OUTPUT = ''DOG" :(LOOP) 
END 
The first line (whose name is LOOP) makes the computer print: 
CAT 
The next line makes the computer print— 
DOG 
and then go to LOOP. Altogether the computer will print: 
CAT 
DOG 
CAT 
DOG 
CAT 
DOG 
Ke 
X = "SIN ON A PIN WITH A DIN" 
Me STN = “HICKS 
OUTPUT = X 
END 


The first line says X is the string ''SIN ON A PIN WITH A DIN". The next line says: 
in X, replace the first "IN" by "UCK". So X becomes "SUCK ON A PIN WITH A DIN". 
The next line says the output is X, so the computer will print: 

SUCK ON A PIN WITH A DIN 


That program changed the first "IN" to '"UCK''. Here's how to change every "IN" 
Poo Ghee 

X = "SIN ON A PIN WITH A DIN" 

X LENG = sn Gian 

X OTN = Wick 

X "IN" = "UcK" 

OUTPUT =-X 


END 

The first line says X is "SIN ON A PIN WITH A DIN". . The second line replaces an 
"IN" by "UCK", so X becomes "SUCK ON A PIN WITH A DIN". The next line replaces 
another "IN" by "UCK'', so X becomes "SUCK ON A PUCK WITH A DIN''. The next line 
replaces another "IN'', so X becomes ''SUCK ON A PUCK WITH A DUCK", which the next 
line prints. | 
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This program does the same thing: 

X = "SIN ON A PIN WITH A DIN" 
LOOP eI = MUCK = SCLOOP) 

OUTPUT = X 
END 
The first line says X is "SIN ON A PIN WITH A DIN". The next line replaces "IN" 
successfully, so X becomes "SUCK ON A PIN WITH A DIN". At the end of the line 
the means: if Successful, go to LOOP. So the computer goes back to LOOP. 
The computer replaces "IN" successfully again, so X becomes "SUCK ON A PUCK WITH A 
DIN", and the computer goes back to LOOP. The computer replaces "IN" successfully 
again, so X becomes "SUCK ON A PUCK WITH A DUCK", and the computer goes back to LOOP. 
The computer trzes to replace "IN" again; but since X doesn't contain an "IN" now, 


the computer does not succeed. So the computer ignores the [: S(LOOP J}, and proceeds 
instead to the next line, which prints: 


SUCK ON A PUCK WITH A DUCK 


This program deletes the first "IN": 
X = "SIN ON A PIN WITH A DIN" 
X STN = 
OUTPUT =rx 
END 
The second line says to replace an "IN" by nothing. In other words, it deletes an 
"TN", X becomes "S ON A PIN WITH A DIN", which the computer will print. 


This program deletes every "IN": 
X = "SIN ON A PIN WITH A DIN" 
LOOP X "IN'' = :S(LOOP) 
OUTPUTA= xX 
END 
The computer will print: 
SON AP WLTH A’D 


Let's count how often "IN" appears in "SIN ON A PIN WITH A DIN". Here's how.... 
Delete each "IN"; but each time you delete one, increase the COUNT by 1. Here's 


the program: : 
X = "SIN ON A PIN WITH A DIN" Defgtne X. 


COUNT = 0 SLULL Ane (COUNT aX. 0. 
LOOP X "IN" = :FCENDING) Try to delete an "IN"; 44 Farthing, go to ENDING. 
COUNT = COUNT + 1 :(LOOP) Increase the COUNT by 1, and go back to LOOP. 
ENDING OUTPUT = COUNT Print the COUNT. 
END 
The third line tries to delete an "IN": tf successful, the computer proceeds to 


the next line, which increases the COUNT and goes back to LOOP; but tf fatling 
(because no "IN" remains), the computer goes to ENDING, which prints the COUNT. 


The computer will print: 
3 


To discover SNOBOL's other features, read the Commentary. Here's why SNOBOL was 
invented.... 


At MIT during the 1950's, Noam Chomsky invented a notation called trans formattonal- 
generative grammar, which helps linguists analyze English and translate betweeen 
English and other languages. His notation is as important to linguists as algebra 
is to scientists. (A decade later, he became even more famous, for starting the 
rebellion against the Vietnam War. ) 
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In 1957 and 1958, his colleague Victor Yngve developed a computer language called 
COMIT, which uses Chomsky's notation. COMIT is as convenient for linguists as FORTRAN 
is for scientists. 


At Bell Telephone Laboratories in 1962, Farber, Griswold, and Polonsky tried to 
improve on COMIT. They dubbed their new language '"SNOBOL", because someone said, 
"Tt doesn't have a snowball's chance in hell." 


Compared with COMIT, SNOBOL's notation is a bit closer to algebra and farther from 
Chomsky's. People who like algebra (such as FORTRAN programmers) say SNOBOL is 
better than COMIT. People who prefer Chomsky's notation (such as linguists) say 
COMIT is better than SNOBOL. 


SNOBOL's supporters were more active than COMIT's: they produced SNOBOL 2, SNOBOL 3, 
SNOBOL 4, and SNOBOL 4B, taught SNOBOL to the newest computers, wrote many books 
about SNOBOL, and emphasized that SNOBOL can solve any problem about strings, even 
if the problem has nothing to do with linguistics. They won: most people use SNOBOL 
instead of COMIT, though COMIT might still make a comeback. 


BASIC 


BASIC's success is due largely to John Kemeny, a colorful character who has changed 
many lives, including mine. Here is the saga of Kemeny.... 


In 1926, he was born as a Hungarian Jew. In 1940, he and his parents fled to America, 
to escape the Nazis. When he begain high school in New York, he knew hardly any 
English; but he graduated as the top student in the class. Four years later, he 
graduated from Princeton swmma cum laude, even though 1% of those years he had to 
spend in the Army, where he helped solve equations for the atomic bomb. 


Two years after his B.A., he got a Ph.D. in mathematics and philosophy, because his 
thesis on symbolic logic combined both fields. While working for the Ph.D., he was 
also Einstein's youngest assistant. But he told Einstein he wanted to drop 
mathematics, and instead hand out leaflets for World Peace. Eistein said: handing 
out leaflets would waste his talents; the best way for him to work for World Peace 
would be to become a famous mathematician, so people would listen to him, as they 
had to Einstein. He took Einstein's advice, and stayed with math. 


After getting his Ph.D., he taught symbolic logic in Princeton's philosophy department, 
and had the good fortune to bump into J. Laurie Snell, who taught statistics in the 
math department. Here's how they met....A student walked up to Snell after class and 
asked, "Is it true that if I stand at Times Square long enough, I'1l meet my long-lost 
brother?" Snell asked, "What are you talking about? Who said so?" The student 

said, "Professor Kemeny in the philosophy department". Kemeny had been giving a 
philosophical lecture on "random-walk" probabilities. 


In 1953, most of Dartmouth College's math professors were retiring, so Dartmouth 

asked Kemeny to come to Dartmouth, chair the department, and "bring all your friends". 
He accepted the offer and brought his friends. That's how Dartmouth stole Princeton's 
math department. 
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He discovered an easier method for handling ''Markov chain" probabilities. He told 
Snell (whom he had stolen). Snell asked, "Can your method prove thts theorem...?" 
Kemeny proved it. Snell asked, "Can your method prove thts theorem also...?" Kemeny 
proved it. By that kind of dialogue, Kemeny and Snell co-authored Fintte Markov 
Chains, which in turn led to Finite Mathemattes and Fintte Mathemattéal Structures, 
co-authored by Kemeny, Mirkil, Snell, and Thompson. In their honor, the department's 
vice-chairman named his pig ''Sir Kemeny-Mirkil-Snell-Thompson". Mirkil committed 
suicide, though not because of the pig. 


Kemeny's department got General Electric to sell Dartmouth a computer at a 90% 
discount, in return for which Dartmouth had to invent programs for it and let 

General Electric use them. To write the programs, Kemeny invented his own little 
computer language in 1963 and showed it to his colleague Thomas Kurtz, who knew less 
about philosophy but more about computers. Kurtz added features from ALGOL and FORTRAN 
and called the combination "BASIC". 


Is BASIC closer to ALGOL than to FORTRAN? On the one hand, BASIC uses the ALGOL 
words FOR, STEP, and THEN and the ALGOL symbol +. On the other hand, BASIC uses 
the FORTRAN words RETURN and DIMENSION (abbreviated DIM); and BASIC's 

"FOR I = 1 TO 9 STEP 2" puts the step size at the end of the statement, like 
BORTRAN 2 DO030°lo= 179,2" and unlike ALGOL'’s “FOR I:=1 STEP 2 UNTIL 9". 


BASIC is simpler than both ALGOL and FORTRAN in two ways: 

1. In ALGOL and FORTRAN, you must tell the computer which variables are integers 
and which are reals. In ALGOL, you do that by saying INTEGER or REAL. In FORTRAN, 
you do that by choosing an appropriate first letter for the variable's name. 
In BASIC, the computer assumes all variables are real. 

2. In ALGOL and FORTRAN, output is a hassle. In FORTRAN, you have to worry about 
FORMATs. In ALGOL, each computer handles output differently—and in most cases 


strangely. BASIC's PRINT statement automatically invents a good format. 


The Commentary to Part 1 explains BASIC's fancy MAT functions, such as TRN and IDN. 
Kemeny created them for student research in Markov-chain MATrix probabilities. Few 
programmers use them, and some new computers omit them altogether. 


The original BASIC lacked the INPUT statement, semicolons in PRINT statements, and 
string variables. Those nice features didn't come until version 2. 


BASIC is not the simplest computer language. ''JOSS"', which was developed a year 


earlier by the RAND Corporation, is simpler to learn. But JOSS doesn't have string 
variables and doesn't name programs (you must give each program a number instead, 
and remember what the number was). Also, programs written in JOSS run more slowly 
and require more of the computer's memory than if written in BASIC. 


Kemeny and Kurtz worked on BASIC with a fervor that was almost religious. They 
believed every college graduate should know how to program a computer, and be as 
literate in BASIC as in English. They convinced Dartmouth to spend as much on its 
computer as on the library. They put computer terminals in practically every college 
building (even in the dorms), and let all kids who lived in the town come onto the 
campus and join the fun. Altogether, the campus has about 300 terminals. 90% of 

all Dartmouth students use BASIC before they graduate. 


Dartmouth trained high-school teachers how to use BASIC. Today many colleges, 
high schools, and prep schools throughout New England have terminals connected to 
Dartmouth's computer via telephone. 
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When Digital Equipment Corp. sold PDP-8 computers that understood both BASIC and FOCAL 
(a stripped-down version of JOSS), programmers said they preferred the BASIC .. 486 
Digital chose BASIC to be the main language for its PDP~-ll, which has become the most 
popular minicomputer in the world. 


Dartmouth continued to improve its own version of BASIC until 1971, when it stabilized 
at version 6. By then, Kemeny had become Dartmouth's president. Most computer 
manufacturers claim to have "Dartmouth BASIC", but they do not have version 6. On 
most PDP-8 computers, for example, BASIC remains less powerful than version 2. ‘The 
PDP-11's BASIC-PLUS is in some ways more powerful than Dartmouth's version 6 but in 
other ways is worse. 


Some of the extras in BASIC-PLUS come from PL/I. Recently at Dartmouth, Steve Garland 
has created "SBASIC" (Structured BASIC), which is even closer to PL/I, and 

Arthur Luehrmann has added more commands to SBASIC that make the computer draw fancy 
graphs. 


Under Kurtz's direction, a committee has written a report called "ANSI Standard Minimal 
BASIC". It lays down the minimum standard a computer must meet before the manufacturer 
can claim it "understands BASIC". 


Since BASIC is simpler than FORTRAN, some FORTRAN programmers have switched to BASIC. 
But most scientists still use FORTRAN, for these reasons: 
1. FORTRAN allows longer variable names (6 letters). 
2. A program will run more quickly in FORTRAN than in BASIC, if the program contains 
many loops or will be used by many people. 
FORTRAN allows complex numbers. 
FORTRAN lets you choose your own format for input. 
All versions of FORTRAN are decent. Some versions of BASIC are lousy—especially 
IBM's. (IBM spurns BASIC almost as much as ALGOL, and for the same reason: 
the language was invented by non-IBMers. ) 
6. By the time BASIC was invented, many FORTRAN programs had been written already. 
To improve those programs, it's easier to add a few more lines of FORTRAN than 
to rewrite the whole program into BASIC. 


in £ 


In spite of those six arguments for FORTRAN, BASIC's popularity is increasing rapidly. 
In the future, more scientists will use BASIC than FORTRAN, though the toughest 
programs will still require FORTRAN. 


APL 


To use APL easily, type on a special terminal, whose keyboard looks like this: 


SPACE 
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To compute 8+9, type this: 

8+9 
When you press the carriage return at the end of that line, the computer will print 
the answer. (You don't have to say RUN or PRINT or any other special word.) The 
computer will print: 


17, 

Altogether, the conversation looks like this: 
8+9 

17 


What you type (the 8+9) is indented. The computer's answer (the 17) begins at the 
left margin. Whenever it's your turn to type, the computer automatically presses 
the space bar six times, so what you type will be indented six spaces. 


APL uses these scalar operators: 
APL NAME SYMBOL MEANING 


~plus A+B add 

minus A-B subtract 

negative = negative 

times AXxB multiply 

signum xB ieee 05 if. B<0;,0e1ee ban 

divide A+B divide 

‘ 1 
reciprocal +B B 
Dige: : 
power A*B A ; in other words, A raised to the Bth power 
: B A 

exponential *B e , where e is 2.718281828459045 

log A®B log ,B 

natural log ®B log .B 

maximum AfB A or B, whichever is larger 

ceiling TB B rounded up to an integer 

minimum ALB A or B, whichever is smaller 

floor LB B rounded down to an integer 

residue A\B the remainder when you divide A into B; for example, 4]19 is 3 
magnitude |B the absolute value of B 

binomial A!B how many A-element subsets you can form from a set of B elements; 

for example, 3!5 is 10 

factorial 'B 1 times 2 times 3 times 4 times ... times B 
rol) 2B a random integer from 1 to B 


circular AOB Vv1-B* if A=O; ssin').B if A=l> cos Bii1f) A=2"*) tan/Bu if, A=3; 
Y1+B2 if A=4; sinh B if A=5; cosh B if A=6; tanh B if A=7; 
arcsin B if A= 1; arccos B if; A=2; arctan B if A=—3; 


YB2-1 if A= 4; arcsinh B if A= 5; arccosh B if A= 6; arctanh B if A= 


pi times OB ™ times B 

less A<B 1 if A is less than B; otherwise 0 

greater A>B 1 if A is greater than B; otherwise 0 

equal A=B 1 if A equals B; otherwise 0 

not less A2B 1 if A is greater than or equal to B; otherwise 0 
not greaterAsB 1 if A is less than or equal to B; otherwise 0 
not equal A#B 1 if A is not equal to B-; otherwise 0 

and AAB 1 if A and B are both 1; otherwise 0 

or AVB Pepto AsOreD 1S. otherwise, 0 

not ~B 1 if B is 0; otherwise 0 

nand A®B 1 if A and B are not both 1; otherwise 0 

nor AB 1 if neither A nor B is 1; otherwise 0 


as 


/ 
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To make the symbol ®, type the symbol *, then press the BACK SPACE key, then type 
the symbol 0. 


The computer does all calculations from right to left. For example, if you type— 
2x3+5 

the computer will start with 5, add 3 (to get 8), and then multiply by 2 (to get 16). 

The computer will print: 

16 

In BASIC, FORTRAN, and most other Languages, the answer would be 11 instead. 


Tiayou epee a 
9-453 
the computer will start with 3, subtract it from 4 (to get 1), and then subtract from 
9 (to get 8). The computer will print: 
8 
In most other computer Languages, the answer would be 2 r«nstead. 


You can use parentheses. Although 9-4-3 is 8, (9-4)-3 is 2. 


Compare these examples: 


=44+6 18) 10 

(AtO Aaa 

In both examples, the.4 is preceded by a negative sign; but in the second example, 

the negative sign is raised, so it is as high as the 4. (To make the raised negative, 


hold down the SHIFT key while you type a 2. To make the regular negative, hold down 
the SHIFT key while you type a +.) The first example makes the computer start with 
6, add 4 (to get 10), and then negate it (to get ~10). The second example makes the 
computer start with 6, and add a “4; the answer is 2. 


In APL, 6 is the same as 6.0. The computer automatically treats all numbers as 
double-precision real. 


You can use variables: 
X<3 
X+2 
The first line says X is 3. The second line makes the computer print X+2. The computer 
will print? 
5 


A variable's name can be long—up to 77 letters and digits. The name must begin with 
a letter. 


A variable can stand for a list of numbers: 
Be a a 
Yd 
The first line says Y is the vector 5 2 8.. The next line makes the computer add 1 
to each item and print: 
ene hee 


This program prints the same answer: 
OY Ses a 

The computer will print: 

Bin to: O39 


This program prints the same answer: 
Le ey cae | 
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You can add a vector to another vector: 
7 ale a sand fads 6) 
Bes 2. 7 
A+B 
ieecurmeuter Wilivagd os Lo vS, and’ 2.1 toe. cG, and :osto ©, and ’print: 


oo G9 1 


‘This program prints the same answer: 
Sm 2b 6+ 3 Cele 


This program prints the same answer: 
) Some ay eA hes, 
BOS. 220 *T7 
C<«A+B 
C 


Here's something -a bit different: 

ct ORR 

+/X 
The first line says X.is the vector 4 2 3. The next line makes the computer print 
the sum, 9. 


This program prints the same answer: 
Yor / 4 52053 
iy 


You can combine many ideas on the same line, but remember that the computer goes 
from right ‘to left: *- 

ZT9—T Pa SS4GR4/ SOLI3K2 747 
irescomputerowlil start owren 2747, multiply“it by 5 1 3 (to get’10 4°21), find the 
sum (which is 35), multiply by*6"Cto ‘get 210)% “add? 43 Cto’get ‘211 214° 213)} and 
then subtract from 219 (to get 8 5 6). The computer will print: 
Bi-5 86 


Each of APL's scalar operators works similarly to addition. Here are a few examples: 

Perens. 9 15° 6°28 90 

cf ae Baa ORS ME es ae aie Bakr 

Sead OLS 42) ef helo 

K/2 & 10 1s QX4xlOS which is 380 

-/9 5 3 is 9-5-3, which is 7 (since the computer works from right to left) 

L/6.1 2.7 4.9 is 6.1L2.7L4.9, which is 2.5 (since L means minimum) 

L6.1 2.7 4.9 is L6.1 followed by L2.7 followed by L4.9, which is 6 2 4 (since L means 
floor) 
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Here are vector operators; the examples assume V is 8 5 2 7: 


APL NAME 
size 
reshape 
catenate 
index 
reverse 
rotate 


index generator 


index of 


take 
take 
drop 
drop 
grade up 


grade down 


membership 
compress 
expand 


decode 
decode 


encode 


deal 


SYMBOL 
oV 

90V 
V,6.4 
VES ab 
OV 

1oV 


14 
Vizes: 9 


Yv 


12 DOey 
£i0.001/¥ 
£040. Lob NY 


10LV 
0 7 24 601LV 


O 7 24 60787967 


3710 


VALUE 
Zit 
ini 


Wn N CC fF 
hh CO UW 


to COO NI WI OO 


8527 
87967 


ope ee eae 


depends 


To dig deeper, read the Commentary. 


Some programmers love APL, because its notation is brief. 


ae 


its notation is hard for a human to read. 
APL will die out. 


REASON 

V has 4 items 

make 9 items from V 

V followed by 6 4 

v's 3%4 item and 18* item 

reverse V 

rotate V, by beginning after the 
we item 

count up to 4 

in Vi find’ 2, 3ee cand. 9. 
2c Leaves 3rd item; 
8 is V's 18* item; 
9 isn't in V (and is therefore 
a no thn item) 

the first 3 items from V 

the last 3 items from V 

omit the first .3_items .f£rom V 

omit the last 3 items from V 

V's smallest item is 2, V's 3%4 item; 
the next smallest is 5, V's 204 item; 
the next smallest is 7, V's 4th item; 
the largest is 8, V's 1S item 

v's largest item is 8, V's 1St item; 
the next largest is 7, V's 4th item; 
the next largest is 5, V's 2nd item; 
the smallest is 2, V's 3©4 item 

find mhether./; 5, :and 6 are ingy- 
the answers are: yes, yes, no 

take part of V, using this pattern: 
take, omit, omit, take 

insert zeros into V, using this 


pattern: ,item, 0,0, .1tem, item, 
item 
(((€8)10+5)10+2 )10+7 


(((8)7+5)24+2)60+7; in other words, 
if a week is 7 days, and a day is 
24 hours, and an hour is 60 minutes, 
then 8 weeks 5 days 2 hours 7 minutes 
is 87967 minutes 

87967 minutes is 8 weeks 5 days 
2 hours 7 minutes 

a list of 3 different random integers 
(no repetitions); the integers are 
small (from 1 to 10) 


Others hate APL, because 


The haters seem to be winning, and I predict 
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In 1963, IBM began inventing a new language that would improve on traditional FORTRAN. 
At first, IBM called the new language ''FORTRAN VI''. As work on it progressed, IBM 
realized it would be so different from traditional FORTRAN that it should have a 
different name. In 1964, IBM changed the name to "NPL" (New Programming Language). 
When IBM discovered that the letters ''NPL'"' already stood for the National Physics 
Laboratory in England, IBM changed the name to "PL/I" (Programming Language One). 


PL/I uses these statements for input and output: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

GET input from a terminal or from a typical file 

PUT print on a terminal or on a typical file 

OPEN start using a file 

CLOSE stop using a file 

READ input from a file whose picture is unedited 

WRITE print on a file whose picture is unedited 

DELETE delete an item from a file 

REWRITE replace an item in a file 

FORMAT use a certain form for spacing the input and output 

DISPLAY print on the computer center's main terminal (used by the operator), 
and wait for the operator to reply 

LOCATE print a "based" variable onto a file 

UNLOCK let other programs use the file 


These statements interrupt: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

STOP stop the program 

DELAY pause for a certain length of time 

WAIT pause, until other simultaneous routines have completed their tasks 
EXIT stop a task, in a program that involves several tasks 

HALT interrupt the program, and free the terminal to do other tasks 


These statements handle conditions: 
STATEMENT'S 
FIRST WORD WHAT THE COMPUTER WILL DO 


IF if a certain condition occurs now, do certain statements 

ON throughout the rest of the block of statements, if a certain unusual 
condition ever occurs (such as OVERFLOW), do certain statements 

SIGNAL pretend an unusual condition occurs (such as OVERFLOW), and do what 
the ON statement says 

REVERT throughout the rest of the block of statements, ignore the ON statements 


that occurred previously in the block 


These statements handle variables: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

DECLARE make some variables be integers, others be reals, others be strings, 
others be filenames, etc. 

DEFAULT change the general assumptions about variables; for example, assume all 
variables are integers 

ALLOCATE create a temporary variable 

FREE destroy a temporary variable, so the memory it was using can be used 


for something else 


Oz 


These statements handle general logic: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

GO go to a different line 

CALL go to a subroutine 

RETURN return from a subprogram to the main routine 

PROCEDURE begin a program or subprogram 

DO begin a loop or compound statement 

BEGIN begin a block of statements 

END end a program, subprogram, loop, compound statement, or block of statements 
ENTRY when requested, skip the previous lines of the subprogram and begin here 


instead 


Half of those statements are borrowed from FORTRAN, ALGOL, and COBOL. 
FORMAT, STOP, CALL, RETURN, DO 
IF > -GO, PROCEDURE , SBEGIN, END 

OPEN, CLOSE; READ, WRITE, DISPLAY, EXIT 


Each PL/I statement ends with a semicolon. Besides the statements I've listed, you 
can also give an asstgnment statement (such as "N=5;")j a null statement (which 
consists of just a semicolon), and a preprocessor statement (which tells the computer 
how to create its own program). 


Of all the high-level computer languages, PL/I gives you the most control over the 

computer. 

uilt-in functions, which you can put in an assignment statement, after the equal 
sign: ABS ACOS ADD ADDR ALL ALLOCATION ANY ASIN ATAN ATAND ATANH BINARY BIT BOOL 
CEIL CHAR CONJG COS COSD COSH COUNT DATAFIELD DATE DECIMAL DIM DIVIDE EMPTY ERF ERFC 
EXP FIXED FLOAT FLOOR HBOUND HIGH IMAG INDEX LBOUND LENGTH LINENO LOG LOG2 LOG10 
LOW MAX MIN MOD MULTIPLY NULL OFFSET ONCODE ONCOUNT ONFILE ONKEY ONLOC POINTER 
POLY PRECISION PROD REPEAT ROUND SIGN SIN SIND SINH SQRT SUM TAN TAND TANH TIME 
TRANSLATE TRUNC VERIFY 

pseudo-variables, which you can put in an assignment statement, before or after the 
equal sign: COMPLETION COMPLEX ONCHAR ONSOURCE PRIORITY REAL STATUS STRING SUBSTR 
UNS PEC 

conditions, which you can put in the ON statement: AREA CHECK CONDITION CONVERSION 
ENDFILE ENDPAGE ERROR FINISH FIXEDOVERFLOW KEY NAME OVERFLOW PENDING RECORD SIZE 
STRINGRANGE STRINGSIZE SUBSCRIPTRANGE TRANSMIT UNDEFINEDFILE UNDERFLOW ZERODIVIDE 

condition prefixes, which you can put before statements, such as assignment 
statements: NOCHECK NOCONVERSION NOFIXEDOVERFLOW NOOVERFLOW NOSIZE NOSTRINGRANGE 
NOSTRINGSIZE NOSUBSCRIPTRANGE NOUNDERFLOW NOZERODIVIDE 

format items, which you can put in the FORMAT statement: A B C COLUMN E F LINE P 
PAGE R SKIP 

attributes, which you can put in the DECLARE statement: ALIGNED AREA AUTOMATIC 
BACKWARDS BASED BINARY BIT BUFFERED BUILTIN CHARACTER COMPLEX CONDITION CONNECTED 
CONTROLLED DECIMAL DEFINED DIRECT ENTRY ENVIRONMENT EVENT EXCLUSIVE EXTERNAL FILE 
FIXED FLOAT GENERIC INITIAL INPUT INTERNAL IRREDUCIBLE KEYED LABEL LIKE OFFSET 
OPTIONS OUTPUT PICTURE POINTER POSITION PRINT REAL RECORD REDUCIBLE RETURNS 
SEQUENTIAL STATIC STREAM TASK TRANSIENT UNALIGNED UNBUFFERED UPDATE VARIABLE VARYING 
nvironment options, which you can put in the DECLARE statement, in parentheses after 
the word ENVIRONMENT: ADDBUFF BLKSIZE BUFFERS COBOL CONSECUTIVE CTLASA CTL360 F 
FB FBS GENKEY INDEXAREA INDEXED KEYLENGTH KEYLOC LEAVE NCP NOWRITE RECSIZE REGIONAL 
REREAD SCALARVARYING TP TRKOFL U V VB VBS VERIFY VS 

other words PL/I uses: ACTIVATE COPY DATA DEACTIVATE DESCRIPTORS EDIT ELSE FORTRAN 

FROM IGNORE IN INCLUDE INTER INTO KEYFROM KEYTO LINESIZE LIST MAIN NOMAP NOMAPIN 

NOMAPOUT NORESCAN ORDER PAGESIZE RANGE RECURSIVE REENTRANT REFER REORDER REPLY 

RESCAN SET SNAP SUB SYSIN SYSPRINT SYSTEM THEN TITLE TO VALUE WHEN WHILE 
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I've been describing PL/I's fanciest versions (the "OS Optimizer" and the "Checkout 
Compiler"). If your computer isn't big enough to handle them, use a stripped-down 
version having fewer commands. 


In 1972, Cornell University invented a pleasant stripped-down version called "PL/C", 
designed especially to help students debug their programs. In 1975, the University of 
Toronto invented an even smaller version called "SP/k". Although it allows fewer 
statements than PL/C, it runs faster and prints messages that are even more helpful. 
SP/k comes in several sizes: the tiniest is SP/1; the largest is SP/8. 


Here are comments on PL/I, by the top experts. 


Saul Rosen 
"Now (and on into the foreseeable future) most of the world's serious programs 
_ are written in FORTRAN and COBOL, not PL/I. 

"I deplore the methods by which programming languages are developed. IBM designed 
PL/I as a crash project, to be completed in just a few months by a committee of six 
men, some of whom had other responsibilities at the same time. Considering the few 
people involved, and the little time they could devote to the project, their 
accomplishment was very impressive. 

"Some people in IBM thought PL/I would gradually supplant FORTRAN, COBOL, and 
ALGOL and make those languages obsolete. PL/I contains most features of all those 
languages and provides many useful extras. With IBM's very enthusiastic backing 
after the design phase, it looked as if PL/I was bound to succeed. And it did 
succeed to some extent. PL/I is now used quite widely, and its use is increasing. 
Instead of replacing FORTRAN and COBOL, it seems on the way toward joining them as 
one of the standard production languages. 

"Problems that can be handled well by FORTRAN can still be handled more 
efficiently in FORTRAN than in PL/I. When comparing PL/I to COBOL, some argue that 
COBOL is more natural and suitable for typical business applications. 

"So far, PL/I has been almost exclusively an IBM language. Versions of PL/I 
on machines by other manufacturers are usually incomplete and inefficient. An 
exception is Honeywell, which inherited a rather good version of PL/I when it took 
over the General Electric computer division. 

"The original descriptions of PL/I were informal. A group at the IBM research 
laboratory in Vienna tried to produce a more formal description; the resulting 
document was so thick it was called 'the Vienna telephone directory'." 


Jean Sammet 

"PL/I is the culmination of FORTRAN, ALGOL, and COBOL. It has included virtually 
all the good features from each of those languages. It has synthesized in a very 
reasonable way almost everything known about languages that solve scientific and 
business problems. But its attempt to replace FORTRAN, ALGOL, and COBOL has not 
yet succeeded. 

"When people discuss computer languages, the most .frequent arguments are about 
PL/I, ALGOL 68, and APL. The fact that most programming is done in languages other 
than these does not inhibit the debate about them. The public arguments about them 
come more from language developers and theoreticians than from the users, who remain 
rightly concerned about cost and compatibility and hence tend to stay with FORTRAN and 
COBOL." 
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Richard Conway & David Gries 
the inventors of PL/C 

"PL/I, PASCAL, and ALGOL are higher-level languages than FORTRAN. Turning a 
vague problem into a program requires extra effort if the target language is FORTRAN 
rather than PL/I: 

"pL/I is, in most respects, less attractive than PASCAL or ANGOL +» Bites tere 
also more widely used. In many universities this makes it the only alternative to 
FORTRAN or COBOL that is politically acceptable for an introductory course. PL/l 
is not easy to love; but if FORTRAN and COBOL are the only alternatives, one can 
learn to live with PL/I. 

"PL/I has some unfortunate characteristics. Its notation is awkward and in 
many places inconsistent. PL/I also has a high astonishment factor—many features 
just don't work the way you would expect. For example, who would guess that 


6EO * 6EO is 3E1?" 


Holt, Wortman, Barnard, and Cordy 
the inventors of SP/k 

"Which language should be taught to beginning students? 

"Although FORTRAN is the standard language for many applications, its clumsy 
features too often distract students from learning orderly methods of program 
construction. 

"COBOL is another widely used language that must eventually be learned by many 
programmers. But its limitations make it a poor introductory language. 

"BASIG is attractive because it is on many minicomputers and has an extremely 
simple notation. A student can learn BASIC more quickly than ALGOL. But he is 
then hampered by BASIC's short variable names when he tries to solve nontrivial 
programming problems. 

"ALGOL 60, ALGOL W, and PASCAL are clean and elegant. But many teachers, students, 
and employers feel the advantages of a more widely accepted language outweigh any 
advantages of additional elegance. 

"PL/I has the advantages that it includes reasonably good programming constructs 
and is widely used—though not as widely as FORTRAN or COBOL.. So we chose to make 
our introductory language, SP/k, a subset of PL/I. The disadvantages of PL/I are 
that the full language includes peculiar and anomalous features and is expensive to 
process. These disadvantages can be overcome if PL/I is restricted to a subset 
whose size and elegance resembles ALGOL 60." 


SP Sus 


Suppose you survey 10 of your friends and ask each of them two questions: 

1. In the next election, will you probably vote Republican or Democrat? 

2. Are you male or female? (Maybe you can guess the answer by just looking at the 
person; but to be sure, you'd better ask.) 


Suppose nobody gives an unusual answer (such as Prohibitionist or Communist or 
Transexual or Undecided). You think it would be cool to feed all the data into the 
computer. For example, if a person said ''Republican Female", you'd feed the computer 
this line: 

RF 

If a person said "Democrat Male", you'd feed the computer this line: 

DM 
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Use SPSS. Here's the SPSS program: 


VARIABLE LIST PARTY, SEX Read each person's PARTY and SEX, 

INPUT FORMAT FIXED (2A1) using this FORTRAN FORMAT: "2A". 

N OF CASES 10 There are 10 people. 

INPUT MEDIUM CARD The data to nead 4s on the "cards" below. 
PRINT FORMATS PARTY,SEX (A) To print the PARTY and SEX, use "A" format. 
CROSSTABS TABLES=SEX BY PARTY Print a table showing how SEX nelates to PARTY. 
READ INPUT DATA The data to nead 44 on the follouing Lines. 
RF 

DM 

RM 

RM © 

DF i] 

bu the "data cards 

DF 

DF 

RM 

DF 

FINISH The program 44 finished. 


In the top line, the word PARTY begins in column 16. Most SPSS statements consist 
of a control fteld (columns 1-15) followed by a spectftcation fteld (columns 16-80). 


When you run the program, the computer will print this kind of table: 
ROW 


TOTAL 

M 5 
50.04 

F 5 
50.04 

COLUMN 10 


TOTAL 40.0% 60.0% 100.0% 


Look’ at the top number in each box. Those numbers say there were 3 male Republicans, 
2 male Democrats, 1 female Republican, and 4 female Democrats. The first box says: 
the 3: male Republicans were 60% of the males, 75% of the Republicans, and 30% of the 
total population. 


The computer prints the table in reverse-alphabetical order: '"M'' before "'F'', and 
"R" before ''D". Each ‘row is) a SEX, .and each, column is a PARTY; In the iprogram,)if 
you change ''SEX BY PARTY'' to "PARTY BY SEX'', each row will be a PARTY, and each column 
will be a SEX. 


The CROSSTABS statement has options. Here are some of them. 

ption 3: don't print the row percentages (the 60.0%, 40.0%, 20.0%, and 80.0%) 
don't print the column percentages (the 75.0%, 33.3%, 25.0%, and:.66.74) 
rint the total percentages (the 30.0%, 20.0%, 10.0%, and 40.0%) 
If you want options 3 and 5, insert this statement underneath the CROSSTABS statement: 
OPTIONS BS, 
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The CROSSTABS statement has statistics. Here are some of them: 


1. chi-square, its degrees of freedom, and its level of significance 

2. phi or Cramer's V 

3. contingency coefficient 

4. lambda, symmetric and asymmetric 

5. uncertainty coefficient, symmetric and asymmetric 

6. Kendall's tau b and its level of significance 

7. Kendall's tau c and its level of significance 

8. gamma 

9. Somer's D 

Those statistics are numbers that help you analyze the crosstab table. If you want 


statistics 1 and 8, insert this statement underneath the CROSSTABS and OPTIONS 
statements: 


STATISTICS Lo 

It makes the computer print stdtistics 1 and 8 underneath the table. If you want 
the computer to print all 9 statistics, say: 

STATISTICS ALL 


The CROSSTABS statement is called a procedure. Here is a complete list of procedures 
SPSS can handle: 

GGREGATE ANOVA BREAKDOWN CANCORR CONDESCRIPTIVE CROSSTABS DISCRIMINAN 
ACTOR FREQUENCIES GUTTMAN SCALE NONPAR CORR ONEWAY PARTIAL CORR 

EARSON CORR REGRESSION SCATTERGRAM T-TEST WRITE CASES 
Each procedure has its own OPTIONS and STATISTICS. 


SPSS includes many other kinds of statements: 

ADD CASES ADD DATA LIST ADD SUBFILES ADD VARIABLES ALLOCATE ASSIGN MISSING 
COMMENT COMPUTE COUNT DATA LIST DELETE SUBFILES DELETE VARS DO REPEAT 
DOCUMENT EDIT END REPEAT FILE NAME GET ARCHIVE GET FILE IF KEEP VARS 
LIST ARCHINFO LIST CASES LIST FILEINFO MERGE FILES MISSING VALUES NUMBERED 
PAGESIZE PRINT BACK RAW OUTPUT UNIT READ MATRIX RECODE REORDER VARS 

RUN NAME RUN SUBFILES SAMPLE SAVE ARCHIVE SAVE FILE SELECT IF SORT CASES 
SUBFILE LIST TASK NAME VALUE LABELS WEIGHT WRITE FILEINFO 


SPSS contains more statistical features than any other language. If you don't need 
quite so many features, use an easier language, such as STATPAK, DATATEXT, or IMPRESS. 


PASCAL 


PASCAL lets you define new kinds of variables. For example, you can define YELLOW, 
ORANGE, RED, VIOLET, BLUE, and GREEN to be "the colors", by saying: 

TYPE COLOR=( YELLOW, ORANGE, RED, VIOLET, BLUE , GREEN) 

If you want the variable C to stand for a color (instead of for a number or a string), 
Say: 

VAR C:COLOR 

Then you can create statements such as— 

FOR C:=ORANGE TO BLUE 

which makes the computer do a loop, for C being ORANGE, then RED, then VIOLET, then 
BLUE. 


Like ALGOL 68, PASCAL attempts to improve on ALGOL 60. Though PASCAL is more popular 
than ALGOL 68, I doubt it will ever become as popular as the top four (COBOL, FORTRAN, 
BASIC, and PL/I). But new versions of the top four will probably borrow features 

from PASCAL. 
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EASY 


I'm developing a language called EASY, which is easier to learn than BASIC, yet more 
powerful than PL/I. To find out about it, read the Commentary. 


LEP SRO 
@) @ HY 32 er ae er nee 
E Ke 


If you'd like additional copies, mail me one of these forms. Do mot send extra 
money for postage and handling; I'll pay for them myself. If things go as usual, 
-you'll get the books quickly: two weeks after you slip the card in the mailbox, 
the postman will hand you the books, if you live in New England; allow slightly 
longer for other parts of the country and in July, August, and December. If you 
want the books a week earlier, add 80¢ per copy and you'll get them first class. 


If you're not sure about whether to order a book, go ahead: if you don't like it, 
you can return it in 10 days and get a complete refund. 


How many copies should I send of part 1, on BASIC, published Jan. 76, at $2.75? 
How many of part 2, on applications, published Aug. 76, at $2.50? 

How many of part 3, on languages, published June 77, at $3.50? 

How many of part 4, on systems, published July 77, at $2.75? 

How many of the Commentary, published Oct. 77, at $4.75? 


$$$ 


TOTAL QUANTITY 
Doetne EOral quantity 18 at. least 20, you get a 204 distount: 
If the total quantity is at least 150, you get a total discount of 302. 


On the other side, write your name, address, and any comments you have (pro or con) 
about the Secret Guide. 


Make the check or money order payable to Russell M. Walter. Mail to Russ Walter, 
Soest. boLolpn st.,, boston, das 02116. 


How many copies should I send of part 1, on BASIC, MibltehedtJan. via, sat sk: hoe 
How many of part 2, on applications, published Aug. 76, at So ous 
How many of part 3, on languages, published June 77, at Soy 02 
How many of part 4, on systems, published July 77, at Cee roe 

How many of the Commentary, published Oct. 77, at Sty oe 


DOTA QUANTITY, 20. 
If the total quantity is at least 20, you get a 20% discount. 
If the total quantity is at least 150, you get a total discount of 302%. 


On the other side, write your name address, and any comments you have (pro or con) 
about the Secret Guide. 


Make the check or money order payable to Russell M. Walter. Mail to Russ Walter, 
O23 St. Botolph St., Boston, Ma. 02116. 
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Share your secret: give one of these forms to a friend. 


Do you know a young (or young-at-heart) computertst who's having a birthday, 
Chrtstmas party, or graduation? Many oldsters have turned these booklets into 
presents. Enclose the computertst's name, address, and etther a greeting card 
or what you want me to say. 


How many copies should I send of part 1, on BASIC, published Jan. 76, at SPAR hd ae 
How many of part 2, on applications, published Aug. 76, at $2.50? 
How many of “Fete 3, on languages, published June 77, at $3.50? 
How many of part 4, on systems, published July 77, at $2.75? 

How many of the Commentary, published Oct. 77, at $4.75? 


TOTAL QUANTITY 
If the total quantity is at least 20, you get a 20% discount. 
If the total quantity is at least 150, you get a total discount of 30%. 


On the other side, write your name, address, and any comments you have (pro or con) 
about the Secret Guide. 


Make the check or money order payable to Russell M. Walter. Mail to Russ Walter, 
Meese sepotolph St., Bostons Ma. 1021 16:. 


How many copies should I send of part 1, on BASIC, published Jan. 76, at of Ray Sg ae te 
How many of part 2, on applications, published Aug. 76, at $2.50? 

How many of part 3, on languages, published June 77, at $3.50? 

How many of part 4, on systems, published July 77, at $2.75? 


How many of the Commentary, published Oct. 77, at $4.75? 


TOTAL QUANTITY, 
If the total quantity is at least 20, you get a 20% discount. 
bPetne total quantity ismat) least 150, you get a total discount of 307. 


On the other side, write your name, address, and any comments you have (pro or con) 
about the Secret Guide. 


Make the check or money order payable to Russell M. Walter. Mail to Russ Walter, 
Vaeot.botolph St., Boston, Ma. 02116. 


How many copies should I send of part 1, on BASIC, published Jan. 76, at $2.75? 
How many of part 2, on applications, published Aug. 76, at $2.50? 
How many of part 3, on languages, published June 77, at $3.50? 
How many of part 4, on systems, published July 77, at $2.75? 

How many of the Commentary, published Oct. 77, at $4.75? 


TOTAL QUANTITY 
If the total quantity is at least 20, you get a 20% discount. 
If the total quantity is at least 150, you get a total discount of 30%. 


On the other side, write your name, address, and any comments you have (pro or con) 
about the Secret Guide. 


Make the check or money order payable to Russell M. Walter. Mail to Russ Walter, 
voeot. wotolph St., Boston, Ma, 02116. 
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Why 1s The Secret Gutde to Computers such a popular series? Here are four answers.... 


"T spent $100 on books.on BASIC. Yours was the only one [| 
could understand. And it cost only $1.75!"'"—head of a large 
meat factory itn Massachusetts 


"By now, I suppose a million people have told you how really 
terrific The Secret Gutde to Computers is. I've been looking 
for good books on BASIC, and yours is as thorough as the most 
complete but as readable as the most elementary. I particu- 
larly like your attitude that the reader can deal with 
computers. Then you proceed to prove it by introducing BASIC 
and hardware in a very clear and interesting way. I particu- 
larly liked the explanation of the order of operations, 
'Contrasts*, all thesdiScussion of strings. READY 3... DA TAI 
loop techniques for adding §& counting § multiplying, the 
multiplication-table program, the explanations of how a 
computer gets a random number, and the explanation of round- 
off error. The best sections, though, are the ones on 
'Turning a Vague Idea into a Program', 'Efficiency', and 
'Silliness': I've never seen anything like them in print 
before. They contain your special contribution to teaching 
programming and are what makes this book better than any of 
the others. You have them beat by a mile."—dtrector of a 
computer center at a prestigious prep school in Connecticut 


"IT must tell you how much I enjoyed reading your computer 
books. This is more strange than you would imagine, for I 
find the machines deplorable. But you have taken such a 
refreshing, comical, and interesting approach, even the likes 
of me can enjoy them.''"—head of a large publishing company in 
New York 


"T am enjoying the series. It is obvious that you enjoy 
programming and wish to show the fun side to others. In this 
day of deadly dull textbooks, I appreciate your approach, 
especially since I am now continuing my education after being 
out of school for some years.""—older student in Massachusetts 


Others were less specific. "I thoroughly enjoyed them." "Exceptionally well-written." 
"You have written an excellent series." "The best book on BASIC." "A fine producta 
"I'm impressed." "T've really enjoyed it." 


